import Data.Bool main :: IO () main = (readLn :: IO Int) >>= print . (\n -> bool (n+1) n (even n))