#include <bits/stdc++.h>
using namespace std;
const int N=250050;
const int M=2*N;
int ls[M],rs[M],tsz,root,mx[M];
void Set(int &c, int ss, int se, int qi, int val)
{
if(!c) c=++tsz;
if(ss==se){ mx[c]=val;return;}
int mid=ss+se>>1;
if(qi<=mid) Set(ls[c],ss,mid,qi,val);
else Set(rs[c],mid+1,se,qi,val);
mx[c]=max(mx[ls[c]],mx[rs[c]]);
}
int Get(int c, int ss, int se, int qs, int qe)
{
if(qs>qe || qs>se || ss>qe) return 0;
if(qs<=ss && qe>=se) return mx[c];
int mid=ss+se>>1;
return max(Get(ls[c],ss,mid,qs,qe),Get(rs[c],mid+1,se,qs,qe));
}
set<pair<int,int>> ord;
int d[N];
int main()
{
int n,q,a;
scanf("%i %i",&n,&a);
for(int i=1;i<=n;i++)
{
scanf("%i",&d[i]);
Set(root,1,n,i,d[i]);
ord.insert({d[i],i});
}
scanf("%i",&q);
while(q--)
{
char t;
scanf("\n%c",&t);
if(t=='F')
{
int b;
scanf("%i",&b);
if(b==a) printf("0\n");
else if(b>a)
{
int val=Get(root,1,n,a+1,b);
int top=a-1,bot=1,mid,ans=a;
while(top>=bot)
{
mid=top+bot>>1;
if(Get(root,1,n,mid,a-1)<val) top=mid-1,ans=mid;
else bot=mid+1;
}
printf("%i\n",b-ans);
}
else
{
int val=Get(root,1,n,b,a-1);
int top=n,bot=a+1,mid,ans=a;
while(top>=bot)
{
mid=top+bot>>1;
if(Get(root,1,n,a+1,mid)<val) bot=mid+1,ans=mid;
else top=mid-1;
}
printf("%i\n",ans-b);
}
}
else
{
int b,e;
scanf("%i %i",&b,&e);
stack<pair<int,int>> bck;
ord.erase({d[b],b});
while(--e)
{
pair<int,int> top=*ord.rbegin();
ord.erase(--ord.end());
top.first++;
d[top.second]++;
Set(root,1,n,top.second,top.first);
bck.push(top);
}
int my=1;
if(ord.size()) my=ord.rbegin()->first+1;
Set(root,1,n,b,my);
d[b]=my;
ord.insert({d[b],b});
while(bck.size())
{
pair<int,int> top=bck.top();
bck.pop();
Set(root,1,n,top.second,top.first);
ord.insert(top);
}
}
}
return 0;
}
