const maxn = 200000;
      maxm = 300000;

type punct = record
        x,y:longint;
     end;

var f:text;
    n,m,k,k1,p,q,i,j,sol,mid,poz:longint;
    d:array[1..maxn]of longint;
    a:array[1..maxn]of punct;
    b:array[1..maxm]of punct;
    c:array[1..maxn]of longint;

procedure readdata;
begin
   sol:=0;
   assign(f,'ograzi.in');
   reset(f);
   readln(f,n,m,p,q);
   for i:=1 to n do
   begin
      readln(f,a[i].x,a[i].y);
   end;
   for i:=1 to m do
   begin
      readln(f,b[i].x,b[i].y);
   end;
   close(f);
end;

procedure solve;
begin
   sol:=0;
   for i:=1 to m do
   begin
      for j:=1 to n do
      begin
         if (a[j].x>=b[i].x-p) and (a[j].x<=b[i].x) and (a[j].y>=b[i].y-q) and (a[j].y<=b[i].y) then
         begin
            inc(sol);
            d[sol]:=i;
            break;
         end;
      end;
   end;
end;

procedure writedata;
begin
   assign(f,'ograzi.out');
   rewrite(f);
   writeln(f,sol);
   close(f);
end;

begin
   readdata;
   solve;
   writedata;
end.