import Control.Applicative

main :: IO ()
main = solve <$> map read <$> words <$> getLine >>= print

solve :: [Int] -> Int
solve [n, k] | k == 1 = 0
             | otherwise = 2 ^ (n-k)