program gropi;
var f,g:text;
    v:array[1..2,0..900000000]of 0..1;
    c,n,m,i,l1,c1,l2,c2,aux,p,a,b,j:longint;
begin
assign(f,'gropi.in');
assign(g,'gropi.out');
reset(f);
rewrite(g);
read(f,c,n);
for i:=1 to n do
  begin
    read(f,a,b);
    v[a,b]:=1;
  end;
read(f,m);
c:=0;
for i:=1 to m do
  begin
    read(f,l1,c1,l2,c2);
    if (c1>c2)then
      begin
        aux:=c1;
        c1:=c2;
        c2:=aux;
        aux:=l1;
        l1:=l2;
        l2:=aux;
      end;
    p:=l1;
    c:=0;
    for j:=c1 to c2 do
      begin
        if (v[p,j]=1)then
          begin
            inc(c);
            if (p=1)then p:=2 else p:=1;
          end;
      end;
    if (p<>l2)then inc(c);
    writeln(g,c+c2-c1+1);
  end;
close(f);
close(g);
end.