#include<bits/stdc++.h>
#define endl '\n'
using namespace std;
const long long maxn = 2e5 + 10;
void speed()
{
    ios_base::sync_with_stdio(false);
    cin.tie(NULL);
    cout.tie(NULL);
}
string s;
long long n, q;
long long p[maxn], pr[maxn];

long long onright[maxn], ponright[maxn];
void solve()
{
    cin >> s;
    n = s.size();
    s = '+' + s;
    for (long long i = 1; i <= n; ++ i)
    {
        p[i] = p[i-1];
        pr[i] = pr[i-1];
        if(s[i] == 'L')p[i] ++;
        else pr[i] ++;
    }
    for (long long i = 1; i <= n; ++ i)
    {
        onright[i] = 0;
        if(s[i] == 'L')continue;
        onright[i] = p[n] - p[i];
    }
    for (long long i = 1; i <= n; ++ i)
    {
        ponright[i] = ponright[i-1] + onright[i];
    }
}
int main()
{
    freopen("bros.in", "r", stdin);
    freopen("bros.out", "w", stdout);
    speed();

    solve();

    long long q;
    cin >> q;
    while(q --)
    {
        long long ql, qr;
        cin >> ql >> qr;

        long long sum = ponright[qr] - ponright[ql - 1];
        long long rin = pr[qr] - pr[ql-1];
        long long outside = p[n] - p[qr];
        sum -= rin * outside;
        cout << sum << endl;
    }
    return 0;
}