var f,g:text;
    n:word;
    m:1..100000;
    w,h:longint;
    crdx,crdy,oaiex,oaiey:array[1..1000]of longint;
    k,i,j:integer;
    ok:boolean;
procedure verif(a,b,c,d:longint;var ok:boolean);
begin
if (a<=c)and(c<a+w)or(a<c)and(c<=a+w) then begin
    if (b<=d)and(d<b+h)or(b<d)and(d<=b+h) then ok:=true else ok :=false;end
        else ok:=false;
end;
BEGIN
assign(f,'ograzi.in');reset(f);
assign(g,'ograzi.out');rewrite(g);
readln(f,n,m,w,h);  k:=0;
for i:=1 to n do readln(f,crdx[i],crdy[i]);
for i:=1 to m do readln(f,oaiex[i],oaiey[i]);
for i:=1 to m do
    for j:=1 to n do begin
        verif(crdx[j],crdy[j],oaiex[i],oaiey[i],ok);
        if ok then begin inc(k);inc(i);end;end;
writeln(g,k);
close(g);  close(f);
end.