ll@n,@k,@a[n];
string@s;
coordcomp(n,a);
Mint d[n];
rep(i,n) d[i]=1;
fenwick<Mint>f;
f.malloc(n);
rep(i,k){
	f.init(n);
	if(s[i]=='<'){
		rep(j,i,n-(k-1-i)){
			f.add(a[j],d[j]);
			d[j]=f.get(a[j]-1);
		}
	}else{
		rep(j,i,n-(k-1-i)){
			f.add(a[j],d[j]);
			d[j]=f.range(a[j]+1,n);
		}
	}
}
wt(sum(d(n)));