#pragma GCC optimize("O2")
#include<bits/stdc++.h>
#define ll   long long
#define pb   emplace_back
#define mp   make_pair
#define orz  998244353
#define fi   first
#define se   second
using namespace std;
int n,a[100005],b[100005];
int f[2][2][2][25005];
ll ans,ans2=1;
string s;
void u(int &x,int y){
	x+=y;
	if(x>=orz)x-=orz;
}
void sol(int sr){
	memset(f,0,sizeof(f));
	int o=0,p=1;
	f[0][sr][0][0]=1;
	for(int i=1;i<=n;++i){
		int l=min(i,n-i+1);
		memset(f[p],0,sizeof(f[p]));
		if(a[i*2]!=1&&((i<n&&a[i*2+1]!=1)||(i==n&&sr==0))){
			//00
			//000
			for(int j=0;j<=l;++j)u(f[p][0][0][j],f[o][0][0][j]);
			for(int j=0;j<=l;++j)u(f[p][0][1][j],f[o][0][1][j]);
			//100
			u(f[p][0][0][1],f[o][1][0][0]);
			u(f[p][0][0][1],f[o][1][1][0]);
			for(int j=1;j<=l;j+=2){
				u(f[p][0][0][j-1],f[o][1][0][j]);
				u(f[p][0][0][j+2],f[o][1][0][j+1]);
			}
			for(int j=1;j<=l;j+=2){
				u(f[p][0][1][j+1],f[o][1][1][j]);
				u(f[p][0][1][j],f[o][1][1][j+1]);
			}
		}
		if(a[i*2]!=1&&((i<n&&a[i*2+1]!=0)||(i==n&&sr==1))){
			//01
			//001
			u(f[p][1][0][1],f[o][0][0][0]);
			u(f[p][1][0][1],f[o][0][1][0]);
			for(int j=1;j<=l;j+=2){
				u(f[p][1][0][j-1],f[o][0][0][j]);
				u(f[p][1][0][j+2],f[o][0][0][j+1]);
			}
			for(int j=1;j<=l;j+=2){
				u(f[p][1][1][j+1],f[o][0][1][j]);
				u(f[p][1][1][j],f[o][0][1][j+1]);
			}
			//101
			for(int j=0;j<=l;++j)u(f[p][1][0][j],f[o][1][0][j]);
			for(int j=0;j<=l;++j)u(f[p][1][1][j],f[o][1][1][j]);
		}
		if(a[i*2]!=0&&((i<n&&a[i*2+1]!=1)||(i==n&&sr==0))){
			//10
			//010
			for(int j=0;j<=l;++j)u(f[p][0][0][j],f[o][0][0][j]);
			for(int j=0;j<=l;++j)u(f[p][0][1][j],f[o][0][1][j]);
			//110
			u(f[p][0][1][1],f[o][1][0][0]);
			u(f[p][0][1][1],f[o][1][1][0]);
			for(int j=1;j<=l;j+=2){
				u(f[p][0][0][j+1],f[o][1][0][j]);
				u(f[p][0][0][j],f[o][1][0][j+1]);
			}
			for(int j=1;j<=l;j+=2){
				u(f[p][0][1][j-1],f[o][1][1][j]);
				u(f[p][0][1][j+2],f[o][1][1][j+1]);
			}
		}
		if(a[i*2]!=0&&((i<n&&a[i*2+1]!=0)||(i==n&&sr==1))){
			//11
			//011
			u(f[p][1][1][1],f[o][0][0][0]);
			u(f[p][1][1][1],f[o][0][1][0]);
			for(int j=1;j<=l;j+=2){
				u(f[p][1][0][j+1],f[o][0][0][j]);
				u(f[p][1][0][j],f[o][0][0][j+1]);
			}
			for(int j=1;j<=l;j+=2){
				u(f[p][1][1][j-1],f[o][0][1][j]);
				u(f[p][1][1][j+2],f[o][0][1][j+1]);
			}
			//111
			for(int j=0;j<=l;++j)u(f[p][1][0][j],f[o][1][0][j]);
			for(int j=0;j<=l;++j)u(f[p][1][1][j],f[o][1][1][j]);
		}
		swap(o,p);
	}
	ans+=f[o][sr][0][0];
	ans+=f[o][sr][1][0];
	ans%=orz;
}
int main(){
	ios::sync_with_stdio(0);
	cin.tie(0);
	cout.tie(0);
	cin>>n;
	n*=2;
	cin>>s;
	for(int i=1;i<=n;++i){
		if(s[i-1]=='Y'||s[i-1]=='R')a[i]=0;
		else if(s[i-1]=='P'||s[i-1]=='B')a[i]=1;
		else a[i]=2;
	}
	n/=2;
	int k=-1;
	for(int i=1;i<=n*2;i+=2)if(a[i]!=2)k=i-1;
	if(k==-1)a[1]=0,ans2=2;
	else{
		for(int i=k+1;i<=n*2;++i)b[i-k]=a[i];
		for(int i=1;i<=k;++i)b[i+n*2-k]=a[i];
		for(int i=1;i<=n*2;++i)a[i]=b[i];
	}
	sol(a[1]);
	ans=(ans*ans2%orz+orz)%orz;
	cout<<ans<<'\n';
    return 0;
}