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