module Main where

-- import Utils

import Control.Applicative

getInt :: IO Int
getInt = head <$> getInts

getInts :: IO [Int]
getInts = map read . words <$> getLine

main :: IO ()
main = do
  {[a, b] <- getInts
  ; putStrLn (unwords (map show[a * b,2 * (a + b)])) 
  }

  


