Program ograzi;
type list=^cell;
     cell= record
                 info:longint;
                 pred:list;
           end;
var n,m,w,h,i,j,a,b,k : longint;
    lhash  : array[0..1000005] of list;
    r : list;

procedure add(nr : longint;var v : list);
   var r  :list;
     begin
        new(r);
        r^.info:=nr;
        r^.pred:=v;
        v:=r;
     end;

begin
   assign(input,'ograzi.in'); reset(input);
   assign(output,'ograzi.out'); rewrite(output);
   readln(n,m,w,h);
   for i:=1 to n do begin
                         readln(a,b);
                         for j:=a to a+w do
                             for k:=b to b+h do
                                add(k,lhash[j]);
                     end;
   k:=0;
   for i:=1 to m do begin
                          readln(a,b);
                          r:=lhash[a];
                          while r<>nil do begin
                                 if r^.info=b then k:=k+1;
                                 r:=r^.pred;
                                 end;
                    end;
   writeln(k);
   close(input);
   close(output) ;
end.