#include <math.h>
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <assert.h>
#include <limits.h>
#include <stdbool.h>

long long int fact(int z){
    if (z==1||z==0){
        return 1;
    }
    return z*fact(z-1);
}

void swap(int p, int q){
    int temp;
    temp=p;
    p=q;
    q=temp;
    
}

int main() {
    char s[100000];
    scanf("%s",s);
    long long int q;
    scanf("%lld\n",&q);
    for (long long int i=0;i<q;i++){
        long long int l,r;
        scanf("%lld %lld\n",&l,&r);
        char a[100000];
        long long int x=0;
        for (long long int j=l;j<l+r;j++){
            a[x]=s[j];
            x++;
        }
        long long int count[x],count2[x];
        long long int count1;
        for (long long int r=0;r<(x+1);r++){
            for (long long int t=r+1;t<(x+1);t++){
                    if(a[r]==a[t]){
                        count[r]++;
                    }
            }
            if(count[r]%2==0){
                count1=count1+(count[r]/2);
            }
        }
        long long int count3=0;
        long long int j=0;
        for(long long int i=0;i<x;i++){
            if ((count[i]%2)!=0){
                count2[j]=count[i];
                j++;
            }
        }
        for (long long int k=0;k<(j);k++){
                 if (count2[k]>count2[k+1]){
                swap(count2[k],count2[k+1]);
            }
        }
        for (long long int k=0;k<j;k++){
            if (count[j-1]==count[k]){
                count3++;
            }
        }
        printf("%lld\n",(fact(((count[j-1]-1)/2)+count1))*count3+1);
        
       
        
    }
    return 0;
}