#include<bits/stdc++.h>
int t,rt=0,cnt=0,n,gb;
struct node{int r,ls,rs,sz;char s;
}a[5000005];
char opt;
inline void update(int x){a[x].sz=a[a[x].ls].sz+a[a[x].rs].sz+1;}
int merge(int x,int y){if(!x||!y)return x+y;if(a[x].r<a[y].r){a[x].rs=merge(a[x].rs,y);update(x);return x;}else{a[y].ls=merge(x,a[y].ls);update(y);return y;}
}
void split(int u,int k,int& x,int& y){if(k==0){x=0,y=u;return;}if(a[u].sz==k){x=u,y=0;return;}if(a[a[u].ls].sz>=k)split(a[u].ls,k,x,a[u].ls),y=u;elsesplit(a[u].rs,k-a[a[u].ls].sz-1,a[u].rs,y),x=u;update(u);
}
void print(int now){if(!now)return;print(a[now].ls);putchar(a[now].s);print(a[now].rs);
}
inline int readint(){int c=getchar(),d=0;for(;!isdigit(c);c=getchar());for(;isdigit(c);c=getchar())d=(d<<3)+(d<<1)+(c^'0');return d;
}
int main(){srand(20170607);memset(a,0,sizeof a);gb=0;for(t=readint();t--;){opt=getchar();for(;!isalpha(opt);opt=getchar());if(opt=='I'){n=readint();int oldgb=gb;while(n--){char c=getchar();while(c<32||c>126)c=getchar();a[++cnt]=(node){rand(),0,0,1,c};int x,y;split(rt,gb++,x,y);rt=merge(merge(x,cnt),y);}gb=oldgb;}elseif(opt=='D'){n=readint();int x,y,z;split(rt,gb,x,y);split(y,n,y,z);rt=merge(x,z);}elseif(opt=='M')gb=readint();elseif(opt=='P')--gb,getchar(),getchar(),getchar();elseif(opt=='N')++gb,getchar(),getchar(),getchar();else{n=readint();int x,y,z;split(rt,gb,x,y);split(y,n,y,z);print(y);putchar('\n');rt=merge(merge(x,y),z);}//print(rt);}return 0;
}

#include<bits/stdc++.h>
int t,rt=0,cnt=0,n,gb,top=0,sta[5000005];
struct node{int r,ls,rs,sz;char s;
}a[5000005];
char opt,s[5000005];
inline void update(int x){a[x].sz=a[a[x].ls].sz+a[a[x].rs].sz+1;}
int merge(int x,int y){if(!x||!y)return x+y;if(a[x].r<a[y].r){a[x].rs=merge(a[x].rs,y);update(x);return x;}else{a[y].ls=merge(x,a[y].ls);update(y);return y;}
}
void split(int u,int k,int& x,int& y){if(k==0){x=0,y=u;return;}if(a[u].sz==k){x=u,y=0;return;}if(a[a[u].ls].sz>=k)split(a[u].ls,k,x,a[u].ls),y=u;elsesplit(a[u].rs,k-a[a[u].ls].sz-1,a[u].rs,y),x=u;update(u);
}
void print(int now){if(!now)return;print(a[now].ls);putchar(a[now].s);print(a[now].rs);
}
inline int readint(){int c=getchar(),d=0;for(;!isdigit(c);c=getchar());for(;isdigit(c);c=getchar())d=(d<<3)+(d<<1)+(c^'0');return d;
}
int build(int n){int x,pre;for(int i=1;i<=n;++i){a[x=++cnt]=(node){rand(),0,0,1,s[i]};for(pre=0;top&&a[sta[top]].r>a[x].r;--top)update(pre=sta[top]);if(top)a[sta[top]].rs=x;a[sta[++top]=x].ls=pre;}while(top)update(sta[top--]);return sta[1];
}
int main(){srand(20170607);memset(a,0,sizeof a);gb=0;for(t=readint();t--;){opt=getchar();for(;!isalpha(opt);opt=getchar());if(opt=='I'){n=readint();for(int i=1;i<=n;++i){char c=getchar();while(c<32||c>126)c=getchar();s[i]=c;}int x=build(n),y,z;split(rt,gb,y,z);rt=merge(merge(y,x),z);}elseif(opt=='D'){n=readint();int x,y,z;split(rt,gb,x,y);split(y,n,y,z);rt=merge(x,z);}elseif(opt=='M')gb=readint();elseif(opt=='P')--gb,getchar(),getchar(),getchar();elseif(opt=='N')++gb,getchar(),getchar(),getchar();else{n=readint();int x,y,z;split(rt,gb,x,y);split(y,n,y,z);print(y);putchar('\n');rt=merge(merge(x,y),z);}//print(rt);}return 0;
}