var
i,m,n,q,w,e:integer;
a:array[1..10100] of integer;
b:array[1..10100] of string;
function as(q,e,n:integer):integer;
begin
if q-e<1 then as:=n-q+e
else as:=q-e;
end;
function qw(q,e,n:integer):integer;
begin
if q+e>n then qw:=q+e-n
else qw:=q+e;
end;
begin
read(n,m);
for i:=1 to n do
begin
read(a[i]);
readln(b[i]);
end;
q:=1;
for i:=1 to m do
begin
read(w,e);
if a[i]=0 then if w=0 then q:=as(q,e,n)
else q:=qw(q,e,n)

else if w=0 then q:=qw(q,e,n)
else q:=as(q,e,n);
end;
writeln(b[q]);
end.