module Main where

import Data.Maybe
import qualified Data.ByteString.Lazy.Char8 as B
import Control.Monad
    

readLine:: B.ByteString -> [Int]
readLine s = map (fst . fromJust . B.readInt) (B.words s)

readLines :: [B.ByteString] -> [[Int]]
readLines [] = []
readLines (s:ss) = readLine s : readLines ss

main :: IO() 
main = do
    contents <- B.getContents
    let lines = B.lines contents
        [a,b] = readLine (head lines)
        ans = show (a*b) ++ " " ++ show (2*a + 2*b)
    putStrLn ans

