#include <bits/stdc++.h>
using namespace std;
#define ll long long
#define pii pair<int, int>
#define f first
#define s second
#define ALL(x) (x).begin(), (x).end()
#define SZ(x) (int)((x).size())
#define pb push_back
#define MN(a,b) a = min(a,b)
#define REP(i,n) for (int i = 0; i<n; ++i)
#define REP1(i,n) for (int i = 1; i<=n; ++i)
#ifdef BALBIT
#define bug(...) cerr<<"#"<<__LINE__<<" "<<#__VA_ARGS__<<"- ", _do(__VA_ARGS__)
template<typename T> void _do( T && x) {cerr<<x<<endl;}
template<typename T, typename ...S> void _do( T && x, S && ...y) {cerr<<x<<", "; _do(y...);}
#else
#define bug(...)
#define endl '\n'
#endif // BALBIT
const int maxn = 250005;
const int inf = 1e9+8;
double s[maxn*4];
double a[maxn];
double QU(int L, int R, int o=1, int l=0, int r=maxn-1) {
if ( l> R || r < L) return inf;
if (l>=L && r <= R) return s[o];
int mid = (l+r)/2;
return min(QU(L,R,o*2,l,mid), QU(L,R,o*2+1,mid+1,r));
}
void MO(int p, double v, int o=1, int l=0, int r=maxn-1) {
if (l > p || r < p) return;
if( l == r) {
s[o] = v; return;
}
int mid = (l+r)/2;
MO(p,v,o*2,l,mid);
MO(p,v,o*2+1,mid+1,r);
s[o] = min(s[o*2], s[o*2+1]);
}
int bigger(int p, double v, int o=1, int l=0, int r = maxn-1) {
if (r < p || s[o] > v) return -1; // first thing geq v position >= p
if (l == r) {
return l;
}
int mid = (l+r)/2;
if (l >= p) {
if (s[o*2] <= v) return bigger(p,v,o*2,l,mid);
else return bigger(p,v,o*2+1,mid+1,r);
}else{
int yy = bigger(p,v,o*2,l,mid);
if (yy!=-1) return yy;
return bigger(p,v,o*2+1,mid+1,r);
}
}
int biggerl(int p, double v, int o=1, int l=0, int r = maxn-1) {
// bug(p,o,l,r);
if (l > p || s[o] > v) return -1; // first thing geq v position <= p
if (l == r) {
return l;
}
int mid = (l+r)/2;
if (r <= p) {
if (s[o*2+1] <= v) return biggerl(p,v,o*2+1,mid+1,r);
else return biggerl(p,v,o*2,l,mid);
}else{
int yy = biggerl(p,v,o*2+1,mid+1,r);
if (yy!=-1) return yy;
return biggerl(p,v,o*2,l,mid);
}
}
signed main(){
ios::sync_with_stdio(0), cin.tie(0);
bug(1,2);
int n,st; cin>>n>>st;
MO(0, -inf);
a[0] = -inf;
vector<pair<double, int> > v;
REP1(i,n) {
int y; cin>>y;
a[i] = n-y+1;
v.pb({a[i], i});
// bug(a[i].f, a[i].s);
MO(i,a[i]);
}
sort(ALL(v));
while (SZ(v) > 10) v.pop_back();
a[n+1] = -inf;
MO(n+1,-inf);
int q; cin>>q;
while (q--) {
char c; cin>>c;
int i; cin>>i;
if (c == 'F') {
if (st == i) cout<<0<<endl;
else{
{
int L = st, R = st;
while (i < L || i > R) {
if (a[L-1] > a[R+1]) --L;
else ++R;
}
cout<<R-L<<endl;
}
continue;
int L = i, R = i<st?st-1:st+1;
if (L>R) swap(L,R);
// pii hi = QU(L,R);
double hi = inf;
// bug(hi.f, hi.s);
int x;
if (i<st) {
for (int j = i; j<st; ++j) {
MN(hi, a[j]);
}
for (int j = st+1; ; ++j) {
if (a[j] < hi) {
x=j; break;
}
}
// x = bigger(st+1,hi);
}else{
for (int j = i; j>st; --j) {
MN(hi, a[j]);
}
for (int j = st-1;; --j) {
if (a[j] < hi) {
x = j; break;
}
}
// x = biggerl(st-1,hi);
}
// bug(x);
cout<<abs(x-i)-1<<'\n';
}
}else{
int e; cin>>e;
REP(j, SZ(v)) {
if (v[j].s == i) {
v.erase(v.begin()+j);
break;
}
}
double x;
if( e == 1) {
x = v[0].f-1;
}else{
x = (v[e-1].f + v[e].f) /2.0;
}
v.pb({x,i});
for (int j = SZ(v)-1; j>0; --j) {
if (v[j-1] > v[j]) {
swap(v[j-1], v[j]);
}else break;
}
while (SZ(v) > 10) v.pop_back();
a[i] = x;
MO(i,x);
}
}
}
