countDNAs :: Integer -> Integer -> Integer
countDNAs l p = 2 ^ (l - 3) * p

main :: IO ()
main = do
    l <- readLn
    p <- readLn
    _ <- getLine
    print $ countDNAs l p