裸题，水题，简单题，wa不会改啊，求神犇来救。orz...
var
i:longint;
n,k,h,r,x,y,xx:int64;
f,a:array[0..100000]of int64;
begin
readln(n,k,h,r);
for i:=1 to r do
begin
readln(x,y);
if x>y then begin xx:=x; x:=y; y:=xx; end;
dec(f[x+1]);
inc(f[y]);
end;
for i:=1 to n do
a[i]:=a[i-1]+f[i];
h:=h-a[k];
for i:=1 to n do
writeln(a[i]+h);
end.