#include<bits/stdc++.h>
using namespace std;
typedef long long ll;
#define A(n,m) (m<0||n<m?0:pre[n]*inv[n-(m)]%mod)
int n,m,x,y,a[301];
ll f[601][301][302][2],pre[301]={1},inv[301]={1};
char s[601];
const int mod=998244353;
ll qpow(ll a,ll b){
	ll s=1;
	for(;b;b>>=1,a=a*a%mod) if(b&1) s=s*a%mod;
	return s;
}
int main(){
	scanf("%d%d%s",&n,&m,s+1);
	for(int i=1;i<=m;i++) scanf("%d",&a[i]),pre[i]=pre[i-1]*i%mod,inv[i]=qpow(pre[i],mod-2);
	f[0][m][0][0]=1;
	for(int i=1;i<=n+m;i++){
		if(s[i]=='+'){
			for(int j=0;j<=m;j++){
				for(int k=0;k<=m;k++){
					for(int l:{0,1}){
						if(x-y-k>=0) (f[i][j][k][l]+=f[i-1][j][k][l]*max(0,(n-a[j])-(m-j)-(x-y-k)))%=mod;
						if(k) (f[i][j][k][l]+=f[i-1][j][k-1][l])%=mod;
					}
					if(k) (f[i][j][k][1]+=f[i-1][j][k-1][0])%=mod;
				}
			}
			x++;
		}
		else{
			for(int j=0;j<=m;j++){
				for(int k=0;k<=m;k++){
					for(int l:{0,1}){
						if(k==1&&l==1){for(int t=0;t<j;t++) if(y-(m-j)>=j-t-1) (f[i][t][0][0]+=f[i-1][j][1][1]*A(y-(m-j),j-t-1))%=mod;}
						else if(k) (f[i][j][k-1][l]+=f[i-1][j][k][l])%=mod;
					}
				}
			}
			y++;
		}
	}
	printf("%lld",f[n+m][0][0][0]);
	return 0;
}