#include<bits/stdc++.h>
using namespace std;
#define ll long long
#define maxn 100000
#define mo 1000000007
string s;
int l,r,q,a[28][maxn],giaithua[maxn];

void pre()
{
    a[s[0]-'a'][0]=1;
    for (int i=1;i<s.length();i++)
    {
        for (int j=0;j<26;j++) a[j][i]=a[j][i-1];
        a[s[i]-'a'][i]++;
    }
    giaithua[1]=1;
    for (int i=2;i<=maxn;i++) giaithua[i]=(giaithua[i-1]*i)%mo;
}
void Nhap()
{
    cin>>s;
    pre();
    cin>>q;
    for (int t=0;t<q;t++)
    {
        cin>>l>>r;
        l--;r--;
        int pari=0,unpari=0,res=0;
        for (int i=0;i<26;i++) pari+=(a[i][r]-a[i][l-1])/2,unpari+=(a[i][r]-a[i][l-1])%2;
        if (pari==0) cout<<0;
        else
        {
            res=max(1,giaithua[unpari]);
            res=(res*giaithua[pari])%mo;
            cout<<res;
        }

        cout<<"\n";
    }
}


int main()
{
    ios_base::sync_with_stdio(0);
    cin.tie(0);
	Nhap();
}