import IO add_2_input :: IO Int add_2_input = do line <- getLine return (add_two (read line)) add_two :: Int -> Int add_two x = x + 2 main = add_2_input >>= print