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