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