#include <bits/stdc++.h>
using namespace std;
string s;
 long long ff=0,rr,tt,w,y[110000],sum=0,p,f=0,ans[110000],e=0,incl[30],le[30],q,l,r,i,j;
int main() {
  cin>>s;
  cin>>q;
  for(j=0;j<q;j++)
  {ans[j]=1;
   f=0;
   memset(y,0,sizeof(y));
   sum=0;
   ff=0;
   cin>>l>>r;
   e=0;
   memset(incl,0,sizeof(incl));
   memset(le,0,sizeof(le));
   for(i=l-1;i<r;i++)le[s[i]-'a']++;
   for(i=0;i<30;i++){if(le[i]%2==0&&le[i]>0){incl[e]=le[i];e++;}
                    if(le[i]%2==1&&f==0&&le[i]>1){incl[e]=le[i]-1;e++;incl[e]=1;e++;f=1;}
                     if(le[i]%2==1&&f==1&&le[i]>1){incl[e]=le[i]-1;e++;}
                     if(le[i]==1)ff=1;
                    }
				if(f==0&&ff==1){
				incl[e]=1;e++;}
   p=1;
   for(i=0;i<e;i++){if(incl[i]%2==0)incl[i]/=2;
                   else {p=incl[i];incl[i]=0;}
                   sum+=incl[i];}
       for(i=1;i<=sum;i++)    
       {w=i;
        tt=2;
       while(w!=1)
       {if(w%tt==0){y[tt]++;w/=tt;}
       else tt++;}
       }
   for(i=0;i<e;i++)
   {w=incl[i];
   tt=2;
   if(incl[i]>0)
   {while(w!=1)
   {if(w%tt==0){y[tt]--;w/=tt;}
   else tt++;
   }
}
   }
   for(i=2;i<100000;i++)
     for(rr=0;rr<y[i];rr++){ans[j]*=i;
                            ans[j]=ans[j]%1000000007ULL;}
                            ans[j]*=p;
                            ans[j]=ans[j]%1000000007ULL;
   
										 }
  for(i=0;i<q;i++)cout<<ans[i]<<endl;
    return 0;
}