ll@n,@k,@a[n];
string@s;
Mint d[n];
rep(i,n) d[i]=1;
rep(i,k){
	if(s[i]=='<'){
		rrep(j,n){
			Mint z;
			rep(l,j){
				if(a[l]<a[j]) z+=d[l];
			}
			d[j]=z;
		}
	}else{
		rrep(j,n){
			Mint z;
			rep(l,j){
				if(a[l]>a[j]) z+=d[l];
			}
			d[j]=z;
		}
	}
}
Mint z;
rep(i,n) z+=d[i];
wt(z);