#include<bits/stdc++.h> using namespace std; const int MAXN=5e5+5; pair<int,int> seg[MAXN*4]; int nex[MAXN],pref[MAXN],f[MAXN*2],ans[MAXN]; vector< pair<int,int> > vq[MAXN]; stack<int> st; pair<int,int> merge(pair<int,int> a,pair<int,int> b) { return {a.first+b.first,min(b.second,b.first+a.second)}; } void update(int l,int r,int i,int val,int pos) { if(i<l||r<i) return ; if(l==r) { seg[pos]={seg[pos].first+val,min(0,seg[pos].first+val)}; return ; } int mid=(l+r)/2; update(l,mid,i,val,pos*2); update(mid+1,r,i,val,pos*2+1); seg[pos]=merge(seg[pos*2],seg[pos*2+1]); } pair<int,int> get(int l,int r,int u,int v,int pos) { if(u<=l&&r<=v) return seg[pos]; int mid=(l+r)/2; if(v<=mid) return get(l,mid,u,v,pos*2); if(mid+1<=u) return get(mid+1,r,u,v,pos*2+1); return merge(get(l,mid,u,v,pos*2),get(mid+1,r,u,v,pos*2+1)); } int main() { ios::sync_with_stdio(0); cin.tie(0); cout.tie(0); int n,q; string s; cin>>n>>s>>q; s=' '+s; for(int i=0;i<=n*2;i++) f[i]=n+1; for(int i=1;i<=n;i++) pref[i]=pref[i-1]+(s[i]=='C')-(s[i]=='T'); for(int i=n-1;i+1;i--) f[pref[i+1]+n]=i+1,nex[i]=f[pref[i]+n-1]; for(int i=1;i<=q;i++) { int l,r; cin>>l>>r; vq[l].push_back({r,i}); } for(int i=n;i;i--) { update(1,n,i,(s[i]=='C')-(s[i]=='T'),1); while(!st.empty()&&nex[i-1]>=st.top()) update(1,n,st.top(),-1,1),st.pop(); if(nex[i-1]<=n) { st.push(nex[i-1]); update(1,n,nex[i-1],1,1); } for(auto v:vq[i]) ans[v.second]=get(1,n,i,v.first,1).first-(pref[v.first]-pref[i-1])-get(1,n,i,v.first,1).second; } for(int i=1;i<=q;i++) cout<<ans[i]<<"\n"; }