program editor;
var
f1,f2:text;
i,j,n,x,code,p,t:longint;
s,ss,ls,sf1,sf2:string;
begin
assign(f1,'editor.in');
assign(f2,'editor.out');
reset(f1);rewrite(f2);
readln(f1,n);
s:='';p:=0;
for i:=1 to n do
begin
readln(f1,ss);
if ss='Get' then writeln(f2,s[p+1]);
if ss='Prev' then dec(p);
if ss='Next' then inc(p);
t:=pos(' ',ss);
if t<>0 then begin ls:=copy(ss,1,t-1);
                   delete(ss,1,t);
                   if ls='Move' then val(ss,p,code);
                   if ls='Delete' then begin val(ss,x,code);
                                             delete(s,p+1,x);
                                       end;
                   if ls='Rotate'then begin val(ss,x,code);
                                            sf1:=copy(s,p+1,x);
                                            delete(s,p+1,x);
                                            sf2:=sf1;
                                            for j:=1 to x do
                                            sf1[j]:=sf2[x-j+1];
                                            s:=s+sf1;
                                      end;
                   if ls='Insert'then begin readln(f1,sf1);
                                            s:=copy(s,1,p)+sf1+copy(s,p+1,(length(s)-p));
                                      end;
             end;
end;
close(f1);close(f2);
end.