module Main where main :: IO () main = do n <- fmap read getLine :: IO Int print $ n + (n `mod` 2)