main :: IO ()
main = do
        str <- getChar
        putStrLn "Hello World!"