import AddOne main :: IO () main = do putStrLn $ show $ addOne 2