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