#define MD 998244353
ll@n;
string@s;
ll a=sum[ll][i,0,n](s[i]<'C');
Comb<Mint>c;
wt(c.C(n,a));