#include <cmath>
#include <cstdio>
#include <vector>
#include <iostream>
#include <algorithm>
using namespace std;

long long fact(long long n)
{
    long long factorial=1;
    while(n--)
    {
        factorial*=n;
    }
    return factorial;
}
int main() {
    string s;
    cin>>s;
    int q;
    cin>>q;
    while(q--)
    {
        int l,n;
        cin>>l>>n;
        int count[26]={0};
        for(int i=l+1;i<=n;i++)
        {
            count[(s[i]-'a')%26]++;
        }
        long long a=0;
        for(int i=0;i<26;i++)
        {
            if(count[i]!=0)
            {
                a+=count[i]/2;
                count[i]=count[i]%2;
            }
        }
        a=a/2;
        
        long long max=0;
        for(int i=0;i<26;i++)
        {
            if(count[i]==1)
            {
                max++;
            }
        }
        max=max*fact(a);
        cout<<max<<endl;
    }
    return 0;
}