import Graphics.SOE


main	=	runGraphics (
			do	print "a"
				w <- openWindow "Hello" (300,300)
				print "b"
				drawInWindow w (text(100,200) "Hello graphics world!")
				print "b"
				k <- getKey w
				print "d"
				closeWindow w
		 	)