main = do
    [n, k] <- map read . words <$> getLine
    print $ if n < k then 0 else 2 ^ (n - k)