program t1;

var

n,m,o,k:integer;

days:array[1..5000]of integer;

i,j,ls,l:integer;

ans:array[1..5000]of integer;

begin

readln(n,m,k);

readln(o);

for i:=1 to m do read(days[i]);

l:=0;

ls:=o;

for i:=1 to n do

begin

for j:=1 to m do

begin

if o