#include <cmath>
#include <cstdio>
#include <vector>
#include <iostream>
#include <algorithm>
using namespace std;

long long fact(long long n)
{
    if(n==1 || n==0)
        return 1;
    else
        return n*fact(n-1);
}

int main() {
    string str;
    cin>>str;
    long q;
    cin>>q;
    while(q--)
    {
        long r,l;
        cin>>l>>r;
        long arr[26]={0};
        long a=0,b=0,v[26];
        for(long i=(l-1); i<r; i++)
        {
            if((arr[str[i]-'a'])==0)
               {
                   for(long j=i+1; j<r; j++)
                   {
                        if(str[i]-'a'==str[i]-'j')
                            arr[str[i]-'a']++;
                   }
               }
        }
        for(long i=0; i<26; i++)
        {
            if(arr[i]%2==1)
            {
                ++a;
                b=b+arr[i]/2;
                v[i]=arr[i]/2;
            }
            else
            {
                b=b+arr[i]/2;
                v[i]=arr[i]/2;
            }
        }
    }
    long long x=a*fact(b);
    for(int i=0; i<26; i++)
    {
        x/=fact(v[i]);
    }
    cout<<x%1000000007;
    return 0;
}