phooey-0.1: src/Graphics/UI/Phooey/Test.hs

import Graphics.UI.WX
main = io >> io where io = start (frame [] >> return ())