var f:text;
ok:boolean;
d1,d2,o1,o2:array[1..100000] of longint;
k:array[1..100000] of boolean;
x,n,i,j,w,h,m:longint;
begin
assign(f,'ograzi.in');reset(f);
readln(f,n,m,w,h);
for i:=1 to n do readln(f,d1[i],d2[i]);
for i:=1 to m do readln(f,o1[i],o2[i]);
close(f);
x:=0;

for i:=1 to n do
for j:=1 to m do
if not k[i] then
begin
ok:=true;
if (d1[j]>o1[i]) or (d1[j]+w<o1[i]) or (d2[j]>o2[i]) or (d2[j]+h<o2[i]) then ok:=false;
if ok then  begin inc(x); k[i]:=true; end;
end;
assign(f,'ograzi.out'); rewrite(F);
writeln(f,x);
close(f);
end.