var

b:array[0..5000]of longint;

m,k,o,i,n,d,j,h:longint;

a:array[0..5000]of longint;

begin

readln(n,M,K);

readln(o);

for i:=1 to m do

read(a[i]);

d:=0;

for i:=1 to n do

begin

for j:=1 to m do

begin

h:=(d+o) mod k;

inc(b[h]);

d:=d+a[j];

end;

end;

FOR i:=1 to k-1 do

write(b[i],' ');

writeln(b[0]);

end.