var m,tot,i,j,n,lx,ly,a,b:longint;
v:array[1..30000] of record x,y:longint;end;
begin
assign(input,'ograzi.in');
reset(input);
readln(n,m,lx,ly);
for i:=1 to n do
readln(v[i].x,v[i].y);
for j:=1 to m do
begin
readln(a,b);
for i:=1 to n do
if (a>=v[i].x)and(a<=v[i].x+lx)and(b>=v[i].y)and(b<=v[i].y+ly) then
inc(tot);
end;
assign(output,'ograzi.out');
rewrite(output);
writeln(tot);
close(output);
end.