program stramosi;
type
tabel=array [0..21,0..2500000] of longint;
tab=array [1..10000000] of char;
var
t:tabel;
n,m,i,j,k,x,y,xx:longint;
f1,f2:text;
b1,b2:tab;
begin
assign (f1,'stramosi.in');
assign (f2,'stramosi.out');
reset (f1);
rewrite (f2);
settextbuf(f1,b1);
settextbuf(f2,b2);
readln (f1,n,m);
for i:=1 to n do
read (f1,t[0,i]);
for i:=1 to 20 do
for j:=1 to n do
t[i,j]:=t[i-1,t[i-1,j]];
for i:=1 to m do begin
readln (f1,x,y);
for j:=20 downto 0 do
if (y and (1 shl j))<>0 then x:=t[j,x];
writeln (f2,x);
end;
close (f1);
close (f2);
end.