#include<cstdio>
#include<cstring>
#include<algorithm>
#include<vector>
#include<iostream>
#include<queue>
#include<cmath>

using namespace std;

#define For(i,l,r) for(int i=(l);i<=(r);i++)
#define Down(i,r,l) for(int i=(r);i>=(l);i--)
#define mset(a,x) memset(a,x,sizeof(a))
#define INF 0x7fffffff

const int MOD=9973;

char s[100005];
int a[100005],m;

int Pow(int a,int x)
{
    int res=1;
    while(x)
    {
        if(x&1) res=1LL*res*a%MOD;
        x>>=1;
        a=1LL*a*a%MOD;
    }
    return res;
}

int main()
{
    while(~scanf("%d",&m))
    {
        scanf("%s",s);
        int len=strlen(s);
        a[0]=1;
        For(i,1,len)
        {
            a[i]=(a[i-1]*(s[i-1]-28))%MOD;
        }
        For(i,1,m)
        {
            int l,r;
            scanf("%d %d",&l,&r);
            int ans=1LL*a[r]*Pow(a[l-1],MOD-2)%MOD;
            printf("%d\n",ans);
        }
    }
    return 0;
}