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)]))
  }
  

