main :: IO ()
main = readLn >>= ageAction

ageAction :: Int -> IO ()
ageAction 1 = hello
ageAction 2 = add

hello :: IO ()
hello = putStrLn "Hello World"

add :: IO ()
add = print =<< (+) <$> readLn <*> readLn
