module Main where
import Control.Applicative ((<$>))

atoi x = read  x :: Int
main = do
  (a:b:_) <- ( map atoi ) <$> words <$> getLine
  let (l,r) = solve a b
  putStrLn $ (show l) ++ " " ++ (show r) 

solve :: Int -> Int -> (Int, Int)
solve a b = (f a b, g a b)
  where
    f x y = a * b
    g x y = x * 2 + y * 2