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