import SimpleGraphics main :: IO () main = main4