import Control.Monad

solve l n = 2^(l-3) * n

main = do
    l <- readLn
    n <- readLn
    cs <- words <$> getLine
    print $ solve l n