area :: Int -> Int -> Int
area a b = a * b

rlength :: Int -> Int -> Int
rlength a b = 2 * (a + b)

rInt :: String -> Int
rInt str = read str :: Int

main :: IO ()
main = do
  input <- getLine
  let doubleInt = map rInt $ words input
  let a = head doubleInt
  let b = last doubleInt
  putStrLn $ show (area a b) ++ " " ++ show (rlength a b)