program ograzi;
var f:text;
    n,m,w,h,i,j,nr:longint;
    og:array[1..50000,1..2] of longint;
    oi:array[1..100000,1..2] of longint;
begin
assign(f,'ograzi.in');reset(f);
readln(f,n,m,w,h);
for i:=1 to n do
 readln(f,og[i,1],og[i,2]);
for i:=1 to m do
 readln(f,oi[i,1],oi[i,2]);
close(f);
for i:=1 to n do
 for j:=1 to m do
  if (oi[j,1]>=og[i,1]) and
     (oi[j,1]<=(og[i,1]+w)) and
     (oi[j,2]>=og[i,2]) and
     (oi[j,2]<=(og[i,2]+h)) then inc(nr);
assign(f,'ograzi.out');rewrite(f);
write(f,nr);
close(f);
end.