#include<bits/stdc++.h>
using namespace std;
const int N=1e6+5,B=27,P=1e9+7;
using ll=long long;
int n,a[N],q;
int sua[N][B],cura[B][B],curb[B][B],tag[N][B];
inline int mol(int x,int y){return x+y>=P?x+y-P:x+y;}
inline void Add(int &u,int v){u=mol(u,v);}
inline void chg(int &u){
	(u>=P)&&(u-=P);
	(u<0)&&(u+=P);
}
inline int tim(int x,int y){return 1ll*x*y%P;}
string s;
void build(){
	for(int i=0;i<B;i++){
		cura[i][i]=curb[i][i]=1;sua[0][i]=1;
	}
	for(int i=1;i<=n;i++){
		int c=s[i]-'a';
		for(int j=0;j<B;j++){
			sua[i][j]=sua[i-1][j]*2-cura[c][j];chg(sua[i][j]);
			cura[c][j]=sua[i-1][j];
		}
	}
	for(int i=1;i<=n;i++){
		int c=s[i]-'a';
		for(int j=0;j<B;j++){
			tag[i][j]=curb[j][c];
			curb[j][c]=curb[j][c]*2-tag[i-1][j];
			chg(curb[j][c]);
		}
	}
}
int main(){
	ios::sync_with_stdio(0);cin.tie(0);cout.tie(0);
	cin>>s;n=s.length();s="*"+s;
	build();
	cin>>q;
	int l,r;
	for(int i=0;i<=n;i++){
		for(int j=0;j<B;j++)chg(tag[i][j]=-tag[i][j]);
	}
	while(q--){
		cin>>l>>r;
		int ans=sua[r][B-1]-1;
		for(int j=0;j<B-1;j++)Add(ans,tim(sua[r][j],tag[l-1][j]));
		cout<<ans<<"\n";
	}
	return 0;
}