#include<bits/stdc++.h>
using namespace std;
typedef long long ll;
const int N=1e6+5;
ll n,m,a[N],t[N],st[N],ed[N],belong[N],del[N];
void build(){
	int len=sqrt(n);
	int j=1,sum=0;;
	st[j]=1;
	for(int i=1;i<=n;i++){
		sum++;
		if(sum>len){
			ed[j]=i-1;
			sum=1;
			j++;
			belong[i]=j;
			st[j]=i;
		}
		else belong[i]=j;
	}
	ed[j]=n;
}
void S(int l,int r){
	for(int i=l;i<=r;i++)t[i]=a[i];
	sort(t+l,t+r+1);
}
void update(int l,int r,int d){
	int x=belong[l],y=belong[r];
	if(x==y){
		for(int i=l;i<=r;i++)a[i]+=d;
		S(l,r);
		return ;
	}
	for(int i=l;i<=ed[x];i++)a[i]+=d;
	for(int i=st[y];i<=r;i++)a[i]+=d;
	for(int i=x+1;i<y;i++)del[i]+=d;
	S(l,ed[x]);
	S(st[y],r);
}
ll ask(int l,int r,int d){
	int x=belong[l],y=belong[r];
	ll res=0;
	if(x==y){
		for(int i=l;i<=r;i++)if(a[i]+del[x]>=d)res++;
		return res;
	}
	for(int i=l;i<=ed[x];i++)if(a[i]+del[x]>=d)res++;
	for(int i=st[y];i<=r;i++)if(a[i]+del[y]>=d)res++;
	for(int i=x+1;i<y;i++){
		res+=ed[i]-(lower_bound(t+st[i],t+ed[i]+1,d-del[i])-t)+1;
	}
	return res;
}
int main(){
	cin>>n>>m;
	for(int i=1;i<=n;i++){
		scanf("%d",&a[i]);
		t[i]=a[i];
	}
	build();
	while(m--){
		char c;
		cin>>c;
		int x,y,k;
		scanf("%d%d%d",&x,&y,&k);
		if(c=='A'){
			printf("%lld\n",ask(x,y,k));
		}
		else update(x,y,k);
	}
	return 0;
}