main = getLine >>= solve . (read :: String -> Int)
        where solve n = putStrLn $ show (-n) ++ " " ++ show (2 * n)