OIG VII - por

// https://szkopul.edu.pl/problemset/problem/porzadek/site/?key=statement
// VII OIG — zawody indywidualne, etap II (2)

#include <iostream>

constexpr int sizik = 1000 * 1001;

long long val[sizik];
int lewo_n[sizik];

int main() {
    std::ios_base::sync_with_stdio(0);
    std::cin.tie(0);
    std::cout.tie(0);

    int n;
    std::cin >> n;

    int r = 0;

    for (int i = 1; i <= n; i++) {
        char a;
        std::cin >> a;

        lewo_n[i] = lewo_n[i - 1];
        val[i] = val[i - 1];

        if (a == 'R') {
            r++;
        } else if (a == 'N') {
            val[i] += r;
            lewo_n[i]++;
        }
    }

    int t;
    std::cin >> t;

    for (; t > 0; t--) {
        int a, b;
        std::cin >> a >> b;

        long long ans = val[b] - val[a - 1] - ((long long)(lewo_n[b] - lewo_n[a - 1]) * (a - 1 - lewo_n[a - 1]));

        std::cout << ans << '\n';
    }

    return 0;
}