Comb<Mint>c;
ll@n,@m;
ll a[16]={0,1};
ll b[16];
rep(i,2,16){
	ll z=0;
	rep(j,i){
		z+=(ll)c.C(i,j)*a[j];
	}
	a[i]=i**n-z;
}
wt(a[m]);