import Data.Bits (shiftL)
main = do
    [n, k] <- map read . words <$> getLine
    print $ if n >= k then (1 :: Integer) `shiftL` (n - k) else 0