($n,$m)=<>;
for$i(0..$n){
	$f[$i]=$i?$f[$_-1]*$i:1;
	$a[$i]=$i**$n;
	for$j(0..$i-1){
		$a[$i]-=$f[$i]/($f[$j]*$f[$i-$j])*$a[$j];
	}
}
print$m>$n?0:$a[$m];