var c,l,n,i,j,y,q,max,g,aux,nr:longint;
    a,b,p,f:array[1..30] of longint;
    k,s:text;
begin
assign(k,'shop.in');
reset(k);
assign(s,'shop.out');
rewrite(s);
read(k,n,c,l);

for i:=1 to n do
 begin
  read(k,a[i]);
  readln(k,b[i]);
 end;
for i:=1 to n do  begin
p[i]:=1;
if a[i]=0 then p[i]:=1
           else
             for y:=1 to a[i] do
              begin
               p[i]:=p[i]*c;
              end;
end;
aux:=n;
max:=0;
for i:=1 to n do  begin
max:=0;
for j:=1 to aux do
if p[j]>max then max:=p[j];
for j:=1 to aux do
if max=p[j] then g:=j;
q:=l div max;
if q>b[g] then begin l:=l-b[g]*max; nr:=nr+b[g]; f[g]:=b[g];end
                else begin l:=l-q*max; nr:=nr+q; f[g]:=q; end;
p[g]:=0;
end;

writeln(s,nr);
for i:=1 to n do
write(s,f[i],' ');

close(k);
close(s);
end.