main :: IO ()
main = do
  x <- readLn
  putStrLn $ show (comb 31 x) ++ " " ++ show ((2^31-1)*comb 30 (x-1))

fact :: Integral a => a -> a
fact 0 = 1
fact n = n * fact (n-1)

comb :: Integral a => a -> a -> a
comb n r
  | r < 0     = 0
  | n < r     = 0
  | otherwise = fact n `div` (fact (n-r) * fact r)