program ograzi;
var n,m,w,h,i,j,k,x,y:longint;
    oi:array[1..100000]of record
                        x,y:longint;
                        end;
    d:array[1..50000]of record
                        x1,y1,x2,y2:longint;
                        end;

    g:text;
    ok:boolean;
procedure citire;
var f:Text;
begin
assign(f,'ograzi.in'); reset(f);
read(f,n,m,w,h);
for i:=1 to n do
 begin
 read(f,d[i].x1,d[i].y1);
 d[i].x2:=d[i].x1+w; d[i].y2:=d[i].y1+h;
 end;
for i:=1 to m do read(f,oi[i].x,oi[i].y);
close(f);
end;
begin {pp}
citire; j:=0;
for i:=1 to m do
 begin
 ok:=true;
 x:=oi[i].x; y:=oi[i].y;
  k:=1;
   while (k<=n)and ok do
    begin
    if (x>=d[k].x1)and(x<=d[k].x2) then
      if (y>=d[i].y1)and(y<=d[i].y2) then begin inc(j); ok:=false; end;
    inc(k);
    end;
 end;
assign(g,'ograzi.out');rewrite(g);
write(g,j); close(g);
end.