#include<queue>
#include<cstdio>
#include<cstring>
#define N 100101
using namespace std;
int tot,trie[N][26],f[N];
int fa[N];
int fail_front[N],fail_nxt[N],fail_to[N],cnt;
int tree_front[N],tree_nxt[N],tree_to[N];
char s[N];
int len,now,sum_p;
int p[N];
int c[N];
int ans[N],in[N],out[N];
queue<int>q;
void add_tree(int u,int v,int k)
{
tree_to[++tot]=v; tree_nxt[tot]=tree_front[u]; tree_front[u]=tot;
ans[tot]=k;
}
void fail_add(int u,int v)
{
fail_to[++tot]=v; fail_nxt[tot]=fail_front[u]; fail_front[u]=tot;
}
int lowbit(int x)
{
return x&(-x);
}
void add(int x,int w)
{
for(int i=x;i<=cnt;i+=lowbit(i)) c[i]+=w;
}
int query(int x)
{
int ans=0;
for(int i=x;i;i-=lowbit(i)) ans+=c[i];
return ans;
}
void dfs(int x)
{
in[x]=++cnt;
for(int i=fail_front[x];i;i=fail_nxt[i])
dfs(fail_to[i]);
out[x]=cnt;
}
void getfail()
{
for(int i=0;i<26;i++) trie[0][i]=1;
q.push(1);
int j;
while(!q.empty())
{
now=q.front(); q.pop();
for(int i=0;i<26;i++)
{
if(!trie[now][i])
{
trie[now][i]=trie[f[now]][i];
continue;
}
q.push(trie[now][i]);
j=f[now];
f[trie[now][i]]=trie[j][i];
fail_add(trie[j][i],trie[now][i]);
}
}
}
int main()
{
scanf("%s",s);
len=strlen(s);
now=1; tot=1;
for(int i=0;i<len;i++)
{
if(s[i]>=‘a‘)
{
trie[now][s[i]-‘a‘]=++tot;
fa[tot]=now;
now=trie[now][s[i]-‘a‘];
}
else if(s[i]==‘B‘) now=fa[now];
else p[++sum_p]=now;
}
tot=0;
getfail();
dfs(1);
tot=0;
int m,x,y;
scanf("%d",&m);
for(int i=1;i<=m;i++)
{
scanf("%d%d",&x,&y);
add_tree(p[y],p[x],i);
}
now=1;
for(int i=0;i<len;i++)
{
if(s[i]==‘P‘)
{
for(int i=tree_front[now];i;i=tree_nxt[i])
ans[i]=query(out[tree_to[i]])-query(in[tree_to[i]]-1);
}
else if(s[i]==‘B‘)
{
add(in[now],-1);
now=fa[now];
}
else
{
add(in[trie[now][s[i]-‘a‘]],1);
now=trie[now][s[i]-‘a‘];
}
}
for(int i=1;i<=m;i++) printf("%d\n",ans[i]);
}