Program secv8;
 var s:widestring;
     c,a1,a2:char;
     i,j,n,x:longint;
     b1:array [1..1 shl 15] of char;
     fi,fo:text;
 procedure reverse(i,j:longint);
  var mid:longint;
       aux:char;
 begin
  mid:=(i+j) div 2;
  while i<=mid do begin
   aux:=s[i];
    s[i]:=s[j];
     s[j]:=aux;
    inc(i); dec(j);
                    end;
 end;
begin
 assign(fi,'secv8.in');
  assign(fo,'secv8.out');
 settextbuf(fi,b1);
 reset(fi);
  rewrite(fo);
 readln(fi,n);
 s:='';
 for x:=1 to n do begin
  read(fi,c);
   if c='A' then begin readln(fi,i); writeln(fo,s[i]); end
    else if c='I' then begin readln(fi,i,a1,a2); insert(a2,s,i); end
     else if c='D' then begin readln(fi,i,j); delete(s,i,j-i+1); end
      else begin readln(fi,i,j); reverse(i,j); end;
     end;
 for i:=1 to length(s) do write(fo,s[i],' ');
close(fo);
end.