program ograzi;
 type lista=^celula;
        celula=record
                info:longint;
                pred:lista;
        end;
 var x,y:array[1..100000] of longint;
     a,b,m,n,i,j,k,ans,w,h:longint;
 begin
  assign(input,'ograzi.in');
  assign(output,'ograzi.out');
  reset(input);
  rewrite(output);
  readln(n,m,w,h);
  for i:=1 to n do
    readln(x[i],y[i]);
  for i:=1 to m do
    begin
      readln(a,b);
      for j:=1 to n do
        if (a>=x[i])and(a<=x[i]+w)and(b>=y[i])and(b<=y[i]+h)
         then begin inc(k); break; end;
    end;
  writeln(k);
  close(output);
 end.