var
f,g:text;
w,h,n,m,i,j,z:integer;
x,y,xo,yo:array[1..100] of integer;
ok:array[1..100] of boolean;
begin
assign(f,'ograzi.in');
reset(F);
assign(g,'ograzi.out');
rewrite(g);
readln(f,n,m,w,h);
i:=0;
z:=0;
for i:=1 to n do readln(f,x[i],y[i]);
for i:=1 to m do begin readln(f,xo[i],yo[i]);ok[i]:=false; end;
close(f);
for i:=1 to m do
begin
  for j:=1 to n do
   if ok[i]=false then
      begin
      if (x[j]<=xo[i]) and(xo[i]<=x[j]+h) and(y[j]<=yo[i]) and (yo[i]<=y[j]+w) then
           begin
           ok[i]:=true;
           inc(z);
           end;
      end;

    end;



writeln(g,z);
close(g);
end.