let main = do { putStrLn "hello"; return "discarded" }
:main