type matrice=array [0..18,1..250000] of longint;
var a:matrice;
    n,m,i,j,s,g,q,p,max:longint;
    f1,f2:text;

function exponent(pas:longint):integer;
var k:longint;
begin
k:=0;
while pas>=(1 shl k) do
	k:=k+1;
exponent:=k-1
end;

procedure rec(nr,exp:longint);
begin
repeat
	a[exp,i]:=nr;
	if nr<>0 then
  	nr:=a[exp,nr];
  exp:=exp+1
until exp=max+1;
end;

procedure rec2(nod,x:longint);
var e:longint;
begin
repeat
	e:=exponent(x);
	x:=x xor (1 shl e);
	nod:=a[e,nod];
	if nod=0 then
		g:=0
	else
		if x=0 then
  		g:=nod
until (nod=0) or (x=0);
end;

begin
assign(f1,'stramosi.in');
reset(f1);
readln(f1,n,m);
max:=exponent(n);
i:=0;
repeat
	i:=i+1;
  read(f1,s);
  rec(s,0)
until i=n;
assign(f2,'stramosi.out');
rewrite(f2);
i:=0;
repeat
  i:=i+1;
  readln(f1,q,p);
  g:=0;
  if p>0 then
  	rec2(q,p)
  else
  	g:=q;
  writeln(f2,g)
until i=m;
close(f1);
close(f2)
end.