ll@n,@k,@a[n];
string@s;
Mint d[n];
rep(i,n) d[i]=1;
rep(i,k){
	ll p=(s[i]=='<'?1:-1);
	rrep(j,i,n-(k-1-i)){
		Mint z;
		rep(l,i,j){
			z+=((a[l]-a[j])*p<0)*d[l];
		}
		d[j]=z;
	}
}
wt(sum(d(n)));