// ~~ icebear ~~
#include <bits/stdc++.h>
using namespace std;
#define int __int128
typedef long long ll;
typedef pair<int, int> ii;
typedef pair<int, ii> iii;
template<class T>
bool minimize(T &a, const T &b) {
if (a > b) return a = b, true;
return false;
}
template<class T>
bool maximize(T &a, const T &b) {
if (a < b) return a = b, true;
return false;
}
#define FOR(i,a,b) for(int i=(a); i<=(b); ++i)
#define FORR(i,a,b) for(int i=(a); i>=(b); --i)
#define REP(i, n) for(int i=0; i<(n); ++i)
#define RED(i, n) for(int i=(n)-1; i>=0; --i)
#define MASK(i) (1LL << (i))
#define BIT(S, i) (((S) >> (i)) & 1)
#define mp make_pair
#define pb push_back
#define fi first
#define se second
#define all(x) x.begin(), x.end()
#define task "gen"
/*END OF TEMPLATE. ICEBEAR AND THE CAT WILL WIN VOI26 */
const int MOD = 1e9 + 7;
const int inf = 1e9 + 27092008;
const ll INF = 1e18 + 27092008;
const int N = 2e5 + 5;
const int S = 600;
long long n, q, pref[N];
string s;
int cnt[2 * N];
int sum[2 * N], sumsq[2 * N];
struct Query {
ll l, r, id;
bool operator < (const Query &other) const {
if (l / S != other.l / S) return l < other.l;
return ((l / S) & 1 ? r > other.r : r < other.r);
}
} Q[N];
int calcL(int L) {
L--;
int ans = 0;
ans += L * L * cnt[pref[L]];
ans -= 2 * L * sum[pref[L]];
ans += sumsq[pref[L]];
return ans;
}
int calcR(int R) {
ll ans = 0;
ans += R * R * cnt[pref[R]];
ans -= 2 * R * sum[pref[R]];
ans += sumsq[pref[R]];
return ans;
}
int ans = 0;
int L, R;
void addL(int L, int sign) {
if (sign == -1) ans -= calcL(L);
cnt[pref[L-1]] += sign;
sum[pref[L-1]] += (L-1) * sign;
sumsq[pref[L-1]] += 1LL * (L-1) * (L-1) * sign;
if (sign == +1) ans += calcL(L);
if (pref[L-1] == pref[R]) {
ans += sign * (R - L + 1) * (R - L + 1);
}
}
void addR(int R, int sign) {
if (pref[L-1] == pref[R]) {
ans -= sign * (R - L + 1) * (R - L + 1);
}
if (sign == -1) ans -= calcR(R);
cnt[pref[R-1]] += sign;
sum[pref[R-1]] += (R-1) * sign;
sumsq[pref[R-1]] += 1LL * (R-1) * (R-1) * sign;
if (sign == +1) ans += calcR(R);
if (pref[L-1] == pref[R]) {
ans += sign * (R - L + 1) * (R - L + 1);
}
}
int res[N];
void MO(int i) {
int l = Q[i].l, r = Q[i].r;
while(L > l) addL(--L, +1);
while(R < r) addR(++R, +1);
while(L < l) addL(L++, -1);
while(R > r) addR(R--, -1);
}
void print(__int128 x) {
vector<int> res;
if (!x) res.pb(0);
while(x) {
res.pb((int)(x % 10));
x /= 10;
}
reverse(all(res));
for(ll t : res) cout << t;
cout << '\n';
}
void init(void) {
cin >> n >> q >> s;
pref[0] = n;
FOR(i, 1, n) pref[i] = pref[i - 1] + (s[i - 1] == '0' ? -1 : +1);
FOR(i, 1, q) cin >> Q[i].l >> Q[i].r, Q[i].id = i;
}
void process(void) {
sort(Q + 1, Q + q + 1);
L = Q[1].l, R = Q[1].r;
FOR(i, L, R) addR(i, +1);
res[Q[1].id] = ans;
FOR(i, 2, q) {
MO(i);
res[Q[i].id] = ans;
}
FOR(i, 1, q) print(res[i]);
}
signed main() {
ios_base::sync_with_stdio(0);
cin.tie(0); cout.tie(0);
if (fopen(task".inp", "r")) {
freopen(task".inp", "r", stdin);
freopen(task".out", "w", stdout);
}
int tc = 1;
// cin >> tc;
while(tc--) {
init();
process();
}
return 0;
}
Ly8gfn4gaWNlYmVhciB+fgojaW5jbHVkZSA8Yml0cy9zdGRjKysuaD4KdXNpbmcgbmFtZXNwYWNlIHN0ZDsKI2RlZmluZSBpbnQgX19pbnQxMjgKdHlwZWRlZiBsb25nIGxvbmcgbGw7CnR5cGVkZWYgcGFpcjxpbnQsIGludD4gaWk7CnR5cGVkZWYgcGFpcjxpbnQsIGlpPiBpaWk7Cgp0ZW1wbGF0ZTxjbGFzcyBUPgogICAgYm9vbCBtaW5pbWl6ZShUICZhLCBjb25zdCBUICZiKSB7CiAgICAgICAgaWYgKGEgPiBiKSByZXR1cm4gYSA9IGIsIHRydWU7CiAgICAgICAgcmV0dXJuIGZhbHNlOwogICAgfQoKdGVtcGxhdGU8Y2xhc3MgVD4KICAgIGJvb2wgbWF4aW1pemUoVCAmYSwgY29uc3QgVCAmYikgewogICAgICAgIGlmIChhIDwgYikgcmV0dXJuIGEgPSBiLCB0cnVlOwogICAgICAgIHJldHVybiBmYWxzZTsKICAgIH0KCiNkZWZpbmUgRk9SKGksYSxiKSBmb3IoaW50IGk9KGEpOyBpPD0oYik7ICsraSkKI2RlZmluZSBGT1JSKGksYSxiKSBmb3IoaW50IGk9KGEpOyBpPj0oYik7IC0taSkKI2RlZmluZSBSRVAoaSwgbikgZm9yKGludCBpPTA7IGk8KG4pOyArK2kpCiNkZWZpbmUgUkVEKGksIG4pIGZvcihpbnQgaT0obiktMTsgaT49MDsgLS1pKQojZGVmaW5lIE1BU0soaSkgKDFMTCA8PCAoaSkpCiNkZWZpbmUgQklUKFMsIGkpICgoKFMpID4+IChpKSkgJiAxKQojZGVmaW5lIG1wIG1ha2VfcGFpcgojZGVmaW5lIHBiIHB1c2hfYmFjawojZGVmaW5lIGZpIGZpcnN0CiNkZWZpbmUgc2Ugc2Vjb25kCiNkZWZpbmUgYWxsKHgpIHguYmVnaW4oKSwgeC5lbmQoKQojZGVmaW5lIHRhc2sgImdlbiIKLypFTkQgT0YgVEVNUExBVEUuIElDRUJFQVIgQU5EIFRIRSBDQVQgV0lMTCBXSU4gVk9JMjYgKi8KCmNvbnN0IGludCBNT0QgPSAxZTkgKyA3Owpjb25zdCBpbnQgaW5mID0gMWU5ICsgMjcwOTIwMDg7CmNvbnN0IGxsIElORiA9IDFlMTggKyAyNzA5MjAwODsKY29uc3QgaW50IE4gPSAyZTUgKyA1Owpjb25zdCBpbnQgUyA9IDYwMDsKbG9uZyBsb25nIG4sIHEsIHByZWZbTl07CnN0cmluZyBzOwppbnQgY250WzIgKiBOXTsKaW50IHN1bVsyICogTl0sIHN1bXNxWzIgKiBOXTsKCnN0cnVjdCBRdWVyeSB7CiAgICBsbCBsLCByLCBpZDsKICAgIGJvb2wgb3BlcmF0b3IgPCAoY29uc3QgUXVlcnkgJm90aGVyKSBjb25zdCB7CiAgICAgICAgaWYgKGwgLyBTICE9IG90aGVyLmwgLyBTKSByZXR1cm4gbCA8IG90aGVyLmw7CiAgICAgICAgcmV0dXJuICgobCAvIFMpICYgMSA/IHIgPiBvdGhlci5yIDogciA8IG90aGVyLnIpOwogICAgfQp9IFFbTl07CgppbnQgY2FsY0woaW50IEwpIHsKICAgIEwtLTsKICAgIGludCBhbnMgPSAwOwogICAgYW5zICs9IEwgKiBMICogY250W3ByZWZbTF1dOwogICAgYW5zIC09IDIgKiBMICogc3VtW3ByZWZbTF1dOwogICAgYW5zICs9IHN1bXNxW3ByZWZbTF1dOwogICAgcmV0dXJuIGFuczsKfQoKaW50IGNhbGNSKGludCBSKSB7CiAgICBsbCBhbnMgPSAwOwogICAgYW5zICs9IFIgKiBSICogY250W3ByZWZbUl1dOwogICAgYW5zIC09IDIgKiBSICogc3VtW3ByZWZbUl1dOwogICAgYW5zICs9IHN1bXNxW3ByZWZbUl1dOwogICAgcmV0dXJuIGFuczsKfQoKaW50IGFucyA9IDA7CmludCBMLCBSOwp2b2lkIGFkZEwoaW50IEwsIGludCBzaWduKSB7CiAgICBpZiAoc2lnbiA9PSAtMSkgYW5zIC09IGNhbGNMKEwpOwogICAgY250W3ByZWZbTC0xXV0gKz0gc2lnbjsKICAgIHN1bVtwcmVmW0wtMV1dICs9IChMLTEpICogc2lnbjsKICAgIHN1bXNxW3ByZWZbTC0xXV0gKz0gMUxMICogKEwtMSkgKiAoTC0xKSAqIHNpZ247CiAgICBpZiAoc2lnbiA9PSArMSkgYW5zICs9IGNhbGNMKEwpOwoKICAgIGlmIChwcmVmW0wtMV0gPT0gcHJlZltSXSkgewogICAgICAgIGFucyArPSBzaWduICogKFIgLSBMICsgMSkgKiAoUiAtIEwgKyAxKTsKICAgIH0KfQoKdm9pZCBhZGRSKGludCBSLCBpbnQgc2lnbikgewogICAgaWYgKHByZWZbTC0xXSA9PSBwcmVmW1JdKSB7CiAgICAgICAgYW5zIC09IHNpZ24gKiAoUiAtIEwgKyAxKSAqIChSIC0gTCArIDEpOwogICAgfQogICAgaWYgKHNpZ24gPT0gLTEpIGFucyAtPSBjYWxjUihSKTsKICAgIGNudFtwcmVmW1ItMV1dICs9IHNpZ247CiAgICBzdW1bcHJlZltSLTFdXSArPSAoUi0xKSAqIHNpZ247CiAgICBzdW1zcVtwcmVmW1ItMV1dICs9IDFMTCAqIChSLTEpICogKFItMSkgKiBzaWduOwogICAgaWYgKHNpZ24gPT0gKzEpIGFucyArPSBjYWxjUihSKTsKICAgIGlmIChwcmVmW0wtMV0gPT0gcHJlZltSXSkgewogICAgICAgIGFucyArPSBzaWduICogKFIgLSBMICsgMSkgKiAoUiAtIEwgKyAxKTsKICAgIH0KfQoKaW50IHJlc1tOXTsKdm9pZCBNTyhpbnQgaSkgewogICAgaW50IGwgPSBRW2ldLmwsIHIgPSBRW2ldLnI7CiAgICB3aGlsZShMID4gbCkgYWRkTCgtLUwsICsxKTsKICAgIHdoaWxlKFIgPCByKSBhZGRSKCsrUiwgKzEpOwogICAgd2hpbGUoTCA8IGwpIGFkZEwoTCsrLCAtMSk7CiAgICB3aGlsZShSID4gcikgYWRkUihSLS0sIC0xKTsKfQoKdm9pZCBwcmludChfX2ludDEyOCB4KSB7CiAgICB2ZWN0b3I8aW50PiByZXM7CiAgICBpZiAoIXgpIHJlcy5wYigwKTsKICAgIHdoaWxlKHgpIHsKICAgICAgICByZXMucGIoKGludCkoeCAlIDEwKSk7CiAgICAgICAgeCAvPSAxMDsKICAgIH0KICAgIHJldmVyc2UoYWxsKHJlcykpOwogICAgZm9yKGxsIHQgOiByZXMpIGNvdXQgPDwgdDsgCiAgICBjb3V0IDw8ICdcbic7Cn0KCnZvaWQgaW5pdCh2b2lkKSB7CiAgICBjaW4gPj4gbiA+PiBxID4+IHM7CiAgICBwcmVmWzBdID0gbjsKICAgIEZPUihpLCAxLCBuKSBwcmVmW2ldID0gcHJlZltpIC0gMV0gKyAoc1tpIC0gMV0gPT0gJzAnID8gLTEgOiArMSk7CiAgICBGT1IoaSwgMSwgcSkgY2luID4+IFFbaV0ubCA+PiBRW2ldLnIsIFFbaV0uaWQgPSBpOwp9Cgp2b2lkIHByb2Nlc3Modm9pZCkgewogICAgc29ydChRICsgMSwgUSArIHEgKyAxKTsKICAgIEwgPSBRWzFdLmwsIFIgPSBRWzFdLnI7CiAgICBGT1IoaSwgTCwgUikgYWRkUihpLCArMSk7CiAgICByZXNbUVsxXS5pZF0gPSBhbnM7CiAgICBGT1IoaSwgMiwgcSkgewogICAgICAgIE1PKGkpOwogICAgICAgIHJlc1tRW2ldLmlkXSA9IGFuczsKICAgIH0KCiAgICBGT1IoaSwgMSwgcSkgcHJpbnQocmVzW2ldKTsKfQoKc2lnbmVkIG1haW4oKSB7CiAgICBpb3NfYmFzZTo6c3luY193aXRoX3N0ZGlvKDApOwogICAgY2luLnRpZSgwKTsgY291dC50aWUoMCk7CiAgICBpZiAoZm9wZW4odGFzayIuaW5wIiwgInIiKSkgewogICAgICAgIGZyZW9wZW4odGFzayIuaW5wIiwgInIiLCBzdGRpbik7CiAgICAgICAgZnJlb3Blbih0YXNrIi5vdXQiLCAidyIsIHN0ZG91dCk7CiAgICB9CiAgICBpbnQgdGMgPSAxOwovLyAgICBjaW4gPj4gdGM7CiAgICB3aGlsZSh0Yy0tKSB7CiAgICAgICAgaW5pdCgpOwogICAgICAgIHByb2Nlc3MoKTsKICAgIH0KICAgIHJldHVybiAwOwp9Cg==