import Control.Applicative

readDigits = map read <$> words <$> getLine :: IO [Int]
main = 
    putStrLn . unwords . map show
    =<< (\[a,b] -> [a*b, (a+b)*2]) <$> readDigits
                                                       