Program gropi;
VAR
 fl,fc,m,n,c,sl,sc,y,i,j:word;
 f,g:text;
 a:array [1..2,1..300] of byte;
begin
 assign(f,'gropi.in');reset(f);
 assign(g,'gropi.out');rewrite(g);
 readln(f,c,n);
 for fl:=1 to n do
  begin
   readln(f,sc,sl);
   a[sc,sl]:=1;
  end;
 readln(f,m);
 for y:=1 to m do
  begin
   readln(f,sl,sc,fl,fc);
   if(sc>fc) then
    begin
     i:=sl;j:=sc;
     sl:=fl;sc:=fc;
     fl:=i;fc:=j;
    end;
   i:=0;
   while (sl<>fl) or (sc<>fc) do
    begin
     if(sc<>fc) then
      begin
       if(a[sl,sc+1]=0)
        then inc(sc)
       else
        if(sl=1) then
          inc(sl)
        else
          dec(sl);
      end
     else
      sl:=fl;
     inc(i);
    end;
   writeln(g,i+1);
  end;
 close(f);close(g);
end.