x :: IO () x = putStrLn "Hello"