import Control.Monad import Control.Applicative main :: IO () main = do p <- readLn putStrLn $ show $ solve p solve :: Int -> Int solve p = p