#include <cstdio>
#include <string.h>
#include <algorithm>
using namespace std;
#define N 100050
struct Query {
int head[N],to[N],nxt[N],cnt,val[N];
inline void add(int u,int v,int w) {
to[++cnt]=v; nxt[cnt]=head[u]; head[u]=cnt; val[cnt]=w;
}
}A;
struct Fail_Tree {
int head[N],to[N],nxt[N],cnt;
inline void add(int u,int v) {
to[++cnt]=v; nxt[cnt]=head[u]; head[u]=cnt;
}
}B;
int ch[N][26],fail[N],Q[N],l,r,m,cnt=1,siz[N],fa[N],dfn[N],son[N],c[N<<1],ans[N],flg[N];
char w[N];
void build() {
int i,p;
for(i=0;i<26;i++) ch[0][i]=1;
Q[r++]=1;
while(l<r) {
p=Q[l++];
for(i=0;i<26;i++) {
if(ch[p][i]) fail[ch[p][i]]=ch[fail[p]][i],Q[r++]=ch[p][i];
else ch[p][i]=ch[fail[p]][i];
}
}
}
void dfs(int x) {
int i;dfn[x]=++dfn[0];
for(i=B.head[x];i;i=B.nxt[i]) {
dfs(B.to[i]);
}
son[x]=++dfn[0];
}
void fix(int x,int v) {for(;x<=dfn[0];x+=x&(-x)) c[x]+=v;}
int inq(int x) {int re=0;for(;x;x-=x&(-x)) re+=c[x]; return re;}
void solve() {
int i,p=1,j;
for(i=1;w[i];i++) {
if(w[i]==‘B‘) {
fix(son[p],-1);
p=fa[p];
}else if(w[i]==‘P‘) {
for(j=A.head[p];j;j=A.nxt[j]) {
// printf("%d\n",A.val[j]);
ans[A.val[j]]=inq(son[A.to[j]])-inq(dfn[A.to[j]]-1);
}
}else {
p=ch[p][w[i]-‘a‘];
fix(dfn[p],1);
}
}
}
int main() {
scanf("%s%d",w+1,&m);
int i,p=1,x,y;
int bajisbdbdbioabsd=0;
for(i=1;w[i];i++) {
if(w[i]==‘B‘) {
p=fa[p];
}else if(w[i]==‘P‘) {
siz[p]++;
flg[++bajisbdbdbioabsd]=p;
}else {
int &k=ch[p][w[i]-‘a‘];
if(!k) k=++cnt; fa[k]=p; p=k;
}
}
build();
for(i=1;i<=cnt;i++) B.add(fail[i],i);
dfs(1);
// printf("%d\n",B.cnt);puts("FUCK");
// for(i=1;i<=cnt;i++) printf("%d %d\n",dfn[i],son[i]);
for(i=1;i<=m;i++) scanf("%d%d",&x,&y),A.add(flg[y],flg[x],i);
solve();
for(i=1;i<=m;i++) printf("%d\n",ans[i]);
}