main :: IO ()
main = do
  [n, k] <- map read . words <$> getLine
  putStrLn $ solve n k

solve :: Int -> Int -> String
solve n k = show $ if n < k then 0 else 2 ^ (n - k)