RosettaCodeData/Task/Hello-world-Graphical/Clean/hello-world-graphical.clean

import StdEnv, StdIO

Start :: *World -> *World
Start world = startIO NDI Void (snd o openDialog undef hello) [] world
where
    hello = Dialog "" (TextControl "Goodbye, World!" [])
                                     [WindowClose (noLS closeProcess)]