program soultap;
type
fxz1=array[1..10] of boolean;
fxz2=record p,mp:longint;
            t:fxz1;
            x:boolean;
     end;
fxz3=array[0..100] of fxz2;
var
f1,f2:text;
v,w,t,p,n,m,a,j,i,b,max:longint;
ans:fxz3;
begin
assign(f1,'soultap.in');
assign(f2,'soultap.out');
reset(f1);rewrite(f2);
readln(f1,n,m,a,b);
for i:=1 to a do
with ans[i] do
begin
x:=false;
mp:=0;p:=0;
for j:=1 to m do
t[j]:=true;
end;
with ans[0] do
begin
x:=true;
mp:=0;p:=0;
for j:=1 to m do
t[j]:=true;
end;
{.....................................................}
for i:=1 to n do
begin
readln(f1,w,v,t,p);
for j:=0 to a do
if (ans[j].x) then begin if ans[j].t[t] then
                         if (w+j<a)and(v+ans[j].mp<b) then
                         if ans[j].p+p>=ans[w+j].p then
                         begin
                         ans[w+j].p:=ans[j].p+p;
                         ans[w+j].t:=ans[j].t;
                         ans[w+j].t[t]:=false;
                         ans[w+j].mp:=v+ans[j].mp;
                         ans[w+j].x:=true;
                         end;
                    end;
end;
max:=0;
for i:=1 to a do
if ans[i].p>=max then max:=ans[i].p;
writeln(f2,max);
close(f1);close(f2)
end.