{-
IPT1_1_C

????????¢?????¢?????¨??¨?????????

?????? a cm ?????? b cm ???????????¢?????¢?????¨??¨?????????????±???????????????°?????????????????????????????????
Input

a ??¨ b ????????????????????§????????????????????????????????????
Output

??¢?????¨??¨?????????????????????????????§????????£????????????????????????????????????
Sample Input

3 5

Sample Output

15 16
-}
import Data.List.Split
main = do
  s <- getLine
  putStrLn $ aux s

aux :: String -> String
aux str = (show s) ++ " " ++ (show l)
  where
    [a,b] = map (\x->read x :: Int) $  (splitOn " " str)
    s = a * b
    l = (a + b) * 2