($n,$k)=glob<>;
$n-=$k;
print $k==1?0:2**$n;