#include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #define rep(x, s, t) for(ll x = (s); (x) <= (t); (x)++) #define per(x, s, t) for(ll x = (s); (x) >= (t); (x)--) #define reps(x, s) for(ll x = 0; (x) < (ll)(s).size(); (x)++) #define chmin(x, y) (x) = min((x), (y)) #define chmax(x, y) (x) = max((x), (y)) #define sz(x) ((ll)(x).size()) #define all(x) (x).begin(),(x).end() #define outl(...) dump_func(__VA_ARGS__) #define outf(x) cout << fixed << setprecision(16) << (x) << endl #define pb push_back #define fi first #define se second #define inf 2e18 #define eps 1e-9 const double PI = 3.1415926535897932384626433; using namespace std; typedef long long ll; typedef unsigned long long ull; typedef pair P; struct edge{ ll to, cost; edge(){} edge(ll a, ll b){ to = a, cost = b;} }; const int dx[] = {1, 0, -1, 0}, dy[] = {0, -1, 0, 1}; //const int mod = 1000000007; const int mod = 998244353; struct mint{ int x; mint(ll y = 0){if(y < 0 || y >= mod) y = (y%mod+mod)%mod; x = y;} mint(const mint &ope) {x = ope.x;} mint operator-(){return mint(-x);} mint operator+(const mint &ope){return mint(x) += ope;} mint operator-(const mint &ope){return mint(x) -= ope;} mint operator*(const mint &ope){return mint(x) *= ope;} mint operator/(const mint &ope){return mint(x) /= ope;} mint& operator+=(const mint &ope){x += ope.x; if(x >= mod) x -= mod; return *this;} mint& operator-=(const mint &ope){x += mod - ope.x; if(x >= mod) x -= mod; return *this;} mint& operator*=(const mint &ope){ll tmp = x; tmp *= ope.x, tmp %= mod; x = tmp; return *this;} mint& operator/=(const mint &ope){ ll n = mod-2; mint mul = ope; while(n){if(n & 1) *this *= mul; mul *= mul; n >>= 1;} return *this; } mint inverse(){return mint(1) / *this;} bool operator ==(const mint &ope){return x == ope.x;} bool operator !=(const mint &ope){return x != ope.x;} bool operator <(const mint &ope)const{return x < ope.x;} }; mint modpow(mint a, ll n){ if(n == 0) return mint(1); if(n % 2) return a * modpow(a, n-1); else return modpow(a*a, n/2); } istream& operator >>(istream &is, mint &ope){ll t; is >> t, ope.x = t; return is;} ostream& operator <<(ostream &os, mint &ope){return os << ope.x;} ostream& operator <<(ostream &os, const mint &ope){return os << ope.x;} ll modpow(ll a, ll n, ll mod){ if(n == 0) return 1; if(n % 2) return ((a%mod) * (modpow(a, n-1, mod)%mod)) % mod; else return modpow((a*a)%mod, n/2, mod) % mod; } vector fact, fact_inv; void make_fact(int n){ fact.resize(n+1), fact_inv.resize(n+1); fact[0] = mint(1); rep(i, 1, n) fact[i] = fact[i-1] * mint(i); fact_inv[n] = fact[n].inverse(); per(i, n-1, 0) fact_inv[i] = fact_inv[i+1] * mint(i+1); } mint comb(int n, int k){ if(n < 0 || k < 0 || n < k) return mint(0); return fact[n] * fact_inv[k] * fact_inv[n-k];} mint perm(int n, int k){ return comb(n, k) * fact[k]; } vector prime, pvec, qrime; void make_prime(int n){ prime.resize(n+1); rep(i, 2, n){ if(prime[i] == 0) pvec.push_back(i), prime[i] = i; for(auto p : pvec){ if(i*p > n || p > prime[i]) break; prime[i*p] = p;} } } void make_qrime(int n){ qrime.resize(n+1); rep(i, 2, n){int ni = i / prime[i]; if(prime[i] == prime[ni]) qrime[i] = qrime[ni] * prime[i]; else qrime[i] = prime[i];} } bool exceed(ll x, ll y, ll m){return y > 0 && x >= m / y + 1;} void mark(){ cout << "*" << endl; } void yes(){ cout << "YES" << endl; } void no(){ cout << "NO" << endl; } ll floor(ll a, ll b){ if(b < 0) a *= -1, b *= -1; if(a >= 0) return a/b; else return -((-a+b-1)/b); } ll ceil(ll a, ll b){ if(b < 0) a *= -1, b *= -1; if(a >= 0) return (a+b-1)/b; else return -((-a)/b); } ll modulo(ll a, ll b){ b = abs(b); return a - floor(a, b) * b;} ll sgn(ll x){ if(x > 0) return 1; if(x < 0) return -1; return 0;} ll gcd(ll a, ll b){if(b == 0) return a; return gcd(b, a%b);} ll lcm(ll a, ll b){return a/gcd(a, b)*b;} ll arith(ll x){return x*(x+1)/2;} ll arith(ll l, ll r){return arith(r) - arith(l-1);} ll digitnum(ll x, ll b = 10){ll ret = 0; for(; x; x /= b) ret++; return ret;} ll digitsum(ll x, ll b = 10){ll ret = 0; for(; x; x /= b) ret += x % b; return ret;} string lltos(ll x, ll b = 10){string ret; for(;x;x/=b) ret += x % b + '0'; reverse(all(ret)); return ret;} ll stoll(string &s, ll b = 10){ll ret = 0; for(auto c : s) ret *= b, ret += c - '0'; return ret;} template void uniq(T &vec){sort(all(vec)); vec.erase(unique(all(vec)), vec.end());} int popcount(ull x){ x -= ((x>>1)&0x5555555555555555ULL), x = (x & 0x3333333333333333ULL) + ((x>>2) & 0x3333333333333333ULL); return (((x + (x>>4)) & 0x0F0F0F0F0F0F0F0FULL) * 0x0101010101010101ULL) >> 56; } template pair& operator+=(pair &s, const pair &t){s.first += t.first, s.second += t.second; return s;} template pair& operator-=(pair &s, const pair &t){s.first -= t.first, s.second -= t.second; return s;} template pair operator+(const pair &s, const pair &t){return pair(s.first+t.first, s.second+t.second);} template pair operator-(const pair &s, const pair &t){return pair(s.first-t.first, s.second-t.second);} template T dot(const pair &s, const pair &t){return s.first*t.first + s.second*t.second;} template T cross(const pair &s, const pair &t){return s.first*t.second - s.second*t.first;} template ostream& operator << (ostream& os, vector& vec){reps(i, vec) os << vec[i] << " "; return os;} template ostream& operator << (ostream& os, const vector& vec){reps(i, vec) os << vec[i] << " "; return os;} template ostream& operator << (ostream& os, list& ls){for(auto x : ls) os << x << " "; return os;} template ostream& operator << (ostream& os, const list& ls){for(auto x : ls) os << x << " "; return os;} template ostream& operator << (ostream& os, deque& deq){reps(i, deq) os << deq[i] << " "; return os;} template ostream& operator << (ostream& os, pair& ope){ os << "(" << ope.first << ", " << ope.second << ")"; return os;} template ostream& operator << (ostream& os, const pair& ope){ os << "(" << ope.first << ", " << ope.second << ")"; return os;} template ostream& operator << (ostream& os, map& ope){ for(auto p : ope) os << "(" << p.first << ", " << p.second << "),";return os;} template ostream& operator << (ostream& os, set& ope){for(auto x : ope) os << x << " "; return os;} template ostream& operator << (ostream& os, multiset& ope){for(auto x : ope) os << x << " "; return os;} template void outa(T a[], ll s, ll t){rep(i, s, t){ cout << a[i]; if(i < t) cout << " ";} cout << endl;} template ostream& operator << (ostream& os, array& arr){reps(i, arr) os << arr[i] << " "; return os;} template ostream& operator << (ostream& os, const array& arr){reps(i, arr) os << arr[i] << " "; return os;} void dump_func(){cout << endl;} template void dump_func(Head &&head, Tail &&... tail){cout << head; if(sizeof...(Tail) > 0) cout << " "; dump_func(std::move(tail)...);} struct Matrix{ typedef mint T; int h, w; vector mat; Matrix(){h = w = 0;} Matrix(int h, int w){ this->h = h, this->w = w; mat.resize(h*w); } T addope(T a, T b){ return a+b; } //加法作用素 static T addIdent(){ return mint(0);} //加法単位元 T mulope(T a, T b){ return a*b; } //乗法作用素 static T mulIdent(){ return mint(1); } //乗法単位元 T& at(int i, int j){ return mat[w*(i-1)+(j-1)];} static Matrix Ident(int size){ Matrix ret(size, size); rep(i, 1, size) rep(j, 1, size){ if(i == j) ret.at(i, j) = mulIdent(); else ret.at(i, j) = addIdent(); } return ret; } Matrix operator+(Matrix& ope){ Matrix ret(h, w); rep(i, 1, h) rep(j, 1, w) ret.at(i, j) = at(i, j) + ope.at(i, j); return ret; } Matrix operator*(Matrix& ope){ Matrix ret(h, ope.w); rep(i, 1, h){ rep(k, 1, w){ if(at(i, k) == mint(0)) continue; rep(j, 1, ope.w){ ret.at(i, j) = addope(ret.at(i, j), mulope(at(i, k), ope.at(k, j))); } } } return ret; } Matrix pow(ll n){ if(n == 0) return Ident(h); if(n % 2) return pow(n-1) * (*this); else{ Matrix tmp = pow(n/2); return tmp * tmp; } } }; ostream& operator << (ostream& os, Matrix& mat) { rep(i, 1, mat.h){rep(j, 1, mat.w) os << mat.mat[mat.w*(i-1)+(j-1)] << " "; cout << endl;} return os; } ostream& operator << (ostream& os, const Matrix& mat) { rep(i, 1, mat.h){rep(j, 1, mat.w) os << mat.mat[mat.w*(i-1)+(j-1)] << " "; cout << endl;} return os; } ll l, n; char c[400005]; ll v[400005]; Matrix mat(5, 5), mat2(5, 5); template T comb2(ll n, ll k){ T ret = 1; rep(i, 1, k) ret *= n-k+i, ret /= i; return ret; } int main(void) { ios::sync_with_stdio(0); cin.tie(0); cin >> l >> n; rep(i, 1, n) cin >> c[i] >> v[i]; ll rsum = 0, bsum = 0; rep(i, 1, n){ if(c[i] == 'R') rsum += v[i]; else bsum += v[i]; } if(min(rsum, bsum) == 0){ outl(0); return 0; } mat = mat2 = Matrix::Ident(5); mat.at(2, 1) = mat.at(4, 3) = 1; mat2.at(3, 2) = mat2.at(5, 4) = 1; mint ans = 0; Matrix mul = Matrix::Ident(5); rep(i, 1, n){ if(c[i] == 'B') mul = mat.pow(v[i]) * mul; else mul = mat2.pow(v[i]) * mul; } ans += mul.at(5, 1); mul = Matrix::Ident(5); rep(i, 1, n){ if(c[i] == 'B') mul = mat2.pow(v[i]) * mul; else mul = mat.pow(v[i]) * mul; } ans += mul.at(5, 1); ans /= mint(rsum-1) * mint(bsum-1); ans += comb2(bsum, 4) / (mint(bsum-1) * mint(bsum-3)); ans += comb2(rsum, 4) / (mint(rsum-1) * mint(rsum-3)); outl(ans); return 0; }