main :: IO () main = do _ <- getLine putStrLn "Hello World!"