#include<bits/stdc++.h>
using namespace std;
const int mod=998244353,G=3,GI=(mod+1)/3;
int qpow(int a,int b){
	int c=1;for(;b;b>>=1){
		if(b&1)c=1ll*a*c%mod;
		a=1ll*a*a%mod;
	}
	return c;
}
#define vi vector<int>
int L,lb[1<<20];
void init(int n){
	L=1;while(L<=n)L<<=1;for(int i=0;i<L;i++)lb[i]=(lb[i>>1]>>1)|((i&1)?(L>>1):0);
}
void NTT(vi &a,int fl){
	for(int i=0;i<L;i++)if(i<lb[i])swap(a[i],a[lb[i]]);
	for(int o=1;o<L;o<<=1){
		int Wn=qpow(fl?G:GI,(mod-1)/(o<<1));
		for(int i=0;i<L;i+=(o<<1))for(int j=0,w=1;j<o;j++,w=1ll*w*Wn%mod){
			int x=a[i+j],y=1ll*a[i+j+o]*w%mod;
			a[i+j]=(x+y)%mod,a[i+j+o]=(x-y)%mod;
		}
	}
	if(!fl){int I=qpow(L,mod-2);for(int i=0;i<L;i++)a[i]=1ll*a[i]*I%mod;}
}
vi operator * (vi a,vi b){
	if(a.empty()||b.empty())return {};
	vi c;int n=a.size()+b.size()-1;init(n);
	a.resize(L),b.resize(L),NTT(a,1),NTT(b,1);
	for(int i=0;i<L;i++)a[i]=1ll*a[i]*b[i]%mod;
	NTT(a,0);return a;
}
vi operator + (vi a,vi b){
	if(a.empty())return b;if(b.empty())return a;
	if(a.size()<b.size())swap(a,b);int sz=b.size();
	for(int i=0;i<sz;i++)(a[i]+=b[i])%=mod;return a;
}
vi oo[200100][2][2];
char C[201000];
int se[200100][2],sv[200100][2];
int n;
void cdq(int p,int l,int r){
	if(l==r){
		for(int i=0;i<2;i++)if(se[l][i]){
			oo[p][i][i]={0,sv[l][0]+sv[l][1]};
			oo[p][i][!i]={sv[l][1]&&(!i),sv[l][0],sv[l][1]&&i};
		}
		return;
	}
	int mid=(l+r)>>1;
	cdq(p<<1,l,mid),cdq(p<<1|1,mid+1,r);
	for(int k=0;k<2;k++)for(int i=0;i<2;i++)for(int j=0;j<2;j++)
	oo[p][i][j]=oo[p][i][j]+oo[p<<1][i][k]*oo[p<<1|1][k][j];
}
int main(){
	scanf("%d%s",&n,C+1);
	for(int i=1;i<=n;i++){
		se[i][0]=(C[i*2-1]=='?'||C[i*2-1]=='Y');
		se[i][1]=(C[i*2-1]=='?'||C[i*2-1]=='P');
		sv[i][0]=(C[i*2]=='?'||C[i*2]=='R');
		sv[i][1]=(C[i*2]=='?'||C[i*2]=='B');
	}
	cdq(1,1,n);
	int ans=0;
	vi ab=oo[1][0][0]+oo[1][1][1];
	if((int)ab.size()>n)(ans+=ab[n])%=mod;
	return printf("%d",(ans+mod)%mod),0;
}