program bing;
var
 f1,f2:text;
 t,v,a,w,i,s:integer;
 n,b:array[1..100] of integer;
 f,fv:array[1..1000] of longint;
procedure init;
var
 i:integer;
begin
 assign(f1,'sail.in');reset(f1);
 assign(f2,'sail.out');rewrite(f2);
 readln(f1,t,v,a,w);
 for i:=1 to  t do
 readln(f1,n[i],b[i]);
 fillchar(f,sizeof(f),0);
 fillchar(fv,sizeof(fv),0);
end;
procedure nb;
var
 i,j,tt,k,tem:integer;
 bb:boolean;
begin
 for i:=1 to t do
 begin
 repeat
 tem:=b[i];bb:=true;
 for k:=1 to i-1 do
 if a-f[k]>0 then
 if b[k]+(i-k)*w<tem then begin bb:=false;tem:=b[k]+(i-k)*w;j:=k;end;
  if a-f[j]>n[i] then
  begin
  if a-f[j]>v then tt:=v else tt:=n[i];
  f[j]:=f[j]+tt;
  fv[i]:=fv[i]+tt*(b[j]+(i-j)*w);
  end
  else
  begin
  tt:=f[j];
  fv[i]:=fv[i]+tt*(b[j]+(i-j)*w);
  f[j]:=a;
  end;
  n[i]:=n[i]-tt;
 until (n[i]=0) or bb;
 if n[i]>0 then begin fv[i]:=fv[i]+n[i]*b[i];f[i]:=n[i];end;
 end;
end;
begin
 init;
 nb;
 for i:=1 to t do s:=s+fv[i];
 writeln(f2,s);
 for i:=1 to t do
 writeln(f2,f[i]);
 close(f1);close(f2);
end.