#include <cmath>
#include <cstdio>
#include <vector>
#include <iostream>
#include <algorithm>
#include<string>
using namespace std;
long long val,c;
void revv(string str)
{   
    string ab;
    ab=str;
    reverse(str.begin(),str.end());
    if(str.compare(ab)==0)
    {
        if(val<str.length())
        {
            val=str.length();
            c=1;
        }
        else if(val==str.length())
            c++;
    }
    
}

void perm(string s, int k,int n)
{
    if(k==n)
    {
       revv(s); 
       //cout<<s<<endl;
    }
    else
    {
        for(long long int i=k;i<=n;i++)
        {
            char t=s[k];
            s[k]=s[i];
            s[i]=t;
            perm(s,k+1,n);
            t=s[k];
            s[k]=s[i];
            s[i]=t;
        }
    }
}


void subString(string s, long long int n) 
{
    string st;
    for (long long int i = 0; i < n; i++) 
        for (long long int len = 1; len <= n - i; len++)
        {
           st=s.substr(i,len);
           //cout<<st<<endl;
           perm(st,0,st.length()-1);
        }
}
string removeDupsSorted(char *str)
{
    long long int res_ind = 1, ip_ind = 1;
 
    /* In place removal of duplicate characters*/
    while (*(str + ip_ind))
    {
        if (*(str + ip_ind) != *(str + ip_ind - 1))
        {
            *(str + res_ind) = *(str + ip_ind);
            res_ind++;
        }
        ip_ind++;
    }
 
    /* After above step string is efgkorskkorss.
       Removing extra kkorss after string*/
    *(str + res_ind) = '\0';
 
    return str;
}
 
/* Function removes duplicate characters from the string
   This function work in-place and fills null characters
   in the extra space left */
char *removeDups(char *str)
{
   long long int n = str.length();
 
   // Sort the character array
   sort(str, str+n);
 
   // Remove duplicates from sorted
   return removeDupsSorted(str);
}
 

int main() {

    
        string s,p;
        cin>>s;
        long long int q;
        cin>>q;
        while(q--)
        {
            long long int l,r;
            cin>>l>>r;
            val=0;
            c=0;
            p=s.substr(l-1,r);
            p=removeDups(p);
            subString(p,p.length());
            
            cout<<c<<endl;
                
        }
    
    return 0;
}