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