/*
*/

#include <bits/stdc++.h>
using namespace std;
#define ALL(x) (x).begin(),(x).end()
#define REP(i, n) for(ll i=0; i<(ll)(n); i++)

template<typename T> int LB(const vector<T>& v, T x) { return lower_bound(ALL(v),x)-v.begin(); }
template<typename T> int UQ(T& v) { sort(ALL(v)); v.erase(unique(ALL(v)),v.end()); return v.size(); }
template<typename T> bool chmax(T &a, T b) { return a<b ? a=b, true : false; }
template<typename T> bool chmin(T &a, T b) { return a>b ? a=b, true : false; }
template<typename T> using rpriority_queue = priority_queue<T,vector<T>,greater<T>>;
using ll=long long; const int INF=1e9+10; const ll INFL=4e18;
using ld=long double; using lll=__int128_t; using ull=unsigned long long;
using VI=vector<int>; using VVI=vector<VI>; using VL=vector<ll>; using VVL=vector<VL>;
using PL=pair<ll,ll>; using VP=vector<PL>; using WG=vector<vector<pair<int,ll>>>;


#ifdef LOCAL
#include "./debug.hpp"
#else
#define debug(...)
#define print_line
#endif



/// @brief セグメント木
template<typename Monoid>
struct SegTree {
    using Type=typename Monoid::Type;
    SegTree()=default;

    /// @brief 要素数 n のセグ木を構築する
    SegTree(int n) {
        this->n=n;
        dat.assign(n<<1,Monoid::id());
        cand.reserve(100),cand_l.reserve(100),cand_r.reserve(100);
    }

    /// @brief 配列 v からセグ木を構築する
    /// @note O(N)
    SegTree(const vector<Type>& v) {
        this->n=v.size();
        dat.assign(n<<1,Monoid::id());
        for(int i=0; i<n; i++) dat[i+n]=v[i];
        for(int i=n-1; i>0; i--) dat[i]=Monoid::op(dat[i<<1],dat[i<<1|1]);
        cand.reserve(100),cand_l.reserve(100),cand_r.reserve(100);
    }

    /// @brief i 番目の要素を x に変更する
    /// @note O(log(N))
    void set(int i, Type x) {
        i+=n;
        dat[i]=x;
        while(i>>=1) dat[i]=Monoid::op(dat[i<<1],dat[i<<1|1]);
    }

    /// @brief 区間 [l, r) のモノイド積を返す
    /// @note O(log(N))
    Type fold(int l, int r) {
        Type retl=Monoid::id(),retr=Monoid::id();
        l+=n,r+=n;
        while(l<r) {
            if(l&1) retl=Monoid::op(retl,dat[l++]);
            if(r&1) retr=Monoid::op(dat[--r],retr);
            l>>=1,r>>=1;
        }
        return Monoid::op(retl,retr);
    }

    /// @brief 区間 [l, x) のモノイド積が f を満たすような最大の x >= l を返す
    /// @attention `f(Monoid::id())=true` が成り立つ必要がある
    /// @note O(log(N))
    template<typename F>
    int find_right(int l, F f) {
        assert(f(Monoid::id()));
        if(l==n) return n;
        l+=n;
        int r=n+n;
        cand_l.clear(),cand_r.clear();
        while(l<r) {
            if(l&1) cand_l.push_back(l++);
            if(r&1) cand_r.push_back(--r);
            l>>=1,r>>=1;
        }
        cand=cand_l;
        reverse(cand_r.begin(),cand_r.end());
        cand.insert(cand.end(),cand_r.begin(),cand_r.end());
        Type val=Monoid::id();
        for(int i:cand) {
            if(f(Monoid::op(val,dat[i]))) {
                val=Monoid::op(val,dat[i]);
            } else {
                while(i<n) {
                    i<<=1;
                    if(f(Monoid::op(val,dat[i]))) {
                        val=Monoid::op(val,dat[i]);
                        i|=1;
                    }
                }
                return i-n;
            }
        }
        return n;
    }

    /// @brief 区間 [x, r) のモノイド積が f を満たすような最小の x <= r を返す
    /// @attention `f(Monoid::id())=true` が成り立つ必要がある
    /// @note O(log(N))
    template<typename F>
    int find_left(int r,F f) {
        assert(f(Monoid::id()));
        if(r==0) return 0;
        r+=n;
        int l=n;
        cand_l.clear(),cand_r.clear();
        while(l<r) {
            if(l&1) cand_l.push_back(l++);
            if(r&1) cand_r.push_back(--r);
            l>>=1,r>>=1;
        }
        cand=cand_r;
        reverse(cand_l.begin(),cand_l.end());
        cand.insert(cand.end(),cand_l.begin(),cand_l.end());
        Type val=Monoid::id();
        for(int i:cand) {
            if(f(Monoid::op(dat[i],val))) {
                val=Monoid::op(dat[i],val);
            } else {
                while(i<n) {
                    i=(i<<1)|1;
                    if(f(Monoid::op(dat[i],val))) {
                        val=Monoid::op(dat[i],val);
                        i^=1;
                    }
                }
                return i-n+1;
            }
        }
        return 0;
    }

    /// @brief i 番目の要素を返す
    /// @note O(1)
    Type operator[](int i) { return dat[i+n]; }

    /// @brief 配列のサイズを返す
    int size() { return n; }

private:
    int n;
    vector<Type> dat;
    vector<int> cand,cand_l,cand_r;
};


/// @brief モノイド
namespace Monoid {
	/// @brief Minモノイド
	/// @tparam max_value 単位元
	template<typename T, T max_value=INF>
	struct Min {
		using Type=T;
		static Type id() { return max_value; }
		static Type op(const Type& a, const Type& b) { return min(a,b); }
	};

	/// @brief Maxモノイド
	/// @tparam min_value 単位元
	template<typename T, T min_value=-INF>
	struct Max {
		using Type=T;
		static Type id() { return min_value; }
		static Type op(const Type& a, const Type& b) { return max(a,b); }
	};

	/// @brief 和
	template<typename T>
	struct Sum {
		using Type=T;
		static Type id() { return 0; }
		static Type op(const Type& a, const Type& b) { return a+b; }
	};

	/// @brief （和，区間の長さ）
	template<typename T>
	struct SumPair {
		using Type=pair<T,int>;
		static Type id() { return make_pair(T(0),0); }
		static Type op(const Type& a, const Type& b) { return {a.first+b.first,a.second+b.second}; }
	};
}


/// @brief 区間クエリ
namespace RangeQuery {
    /// @brief 1点変更 / 区間 min
    template<typename T, T max_value=INF>
    struct Min { using Type=struct SegTree<Monoid::Min<T,max_value>>; };

    /// @brief 1点変更 / 区間 max
    template<typename T, T min_value=-INF>
    struct Max { using Type=struct SegTree<Monoid::Max<T,min_value>>; };

    /// @brief 1点変更 / 区間和
    template<typename T>
    struct Sum { using Type=struct SegTree<Monoid::Sum<T>>; };
}

//----------------------------------------------------------

struct Data {
    bool self;
    array<bool,2> op;
    array<array<ll,2>,2> op_count; //prefix
    array<ll,2> count; //suffix
    ll valid;

    void init() {
        REP(i,2) REP(j,2) op_count[i][j]=0;
        count={0,0};
        valid=0;
    }

    Data() {};

    Data(string s) {
        init();

        self=(s.back()=='T');

        if(self) valid=1, count={0,1};
        else valid=0, count={1,0};

        if(s[0]=='!') return;

        if(s[0]=='^') op={self^false, self^true};
        else if(s[0]=='+') op={self, true};
        else op={false, self};

        op_count[true][op[true]]++;
        op_count[false][op[false]]++;
    }
};

struct Mono {
    using Type=Data;
    static Data op(const Data& l, const Data& r) {
        Data ret; ret.init();

        ret.self=r.op[l.self];
        ret.op={r.op[l.op[false]], r.op[l.op[true]]};

        ret.valid=l.valid+r.valid;
        ret.valid+=l.count[false]*r.op_count[false][true];
        ret.valid+=l.count[true]*r.op_count[true][true];

        REP(i,2) REP(j,2) {
            ret.op_count[i][j]=l.op_count[i][j];
            ret.op_count[i][j]+=r.op_count[l.op[i]][j];
        }

        ret.count=r.count;
        REP(i,2) ret.count[r.op[i]]+=l.count[i];

        return ret;
    }

    static Data id() {
        Data ret; ret.init();
        return ret;
    }
};

void solve() {
    ll N,Q; cin>>N>>Q;
    string X; cin>>X;
    X.insert(X.begin(),'!');

    N=(N+1)/2;

    auto seg=SegTree<Mono>(N);
    REP(i,N) seg.set(i,Data(X.substr(i*2,2)));

    while(Q--) {
        ll x,y; cin>>x>>y;
        x/=2; y/=2;
        y++;

        auto ret=seg.fold(x,y);
        cout<<ret.valid<<'\n';
    }
}

int main() {
    ios::sync_with_stdio(false); cin.tie(nullptr);
    //cout<<fixed<<setprecision(15);
    int T=1;
    //cin>>T;
    while(T--) solve();
}