myInit :: PF.PixelFlame -> IO (Size, Image)
myInit pixelFlame = do
  let size = sizeRep pixelFlame
  (progName, _args) <- getArgsAndInitialize
  initialDisplayMode $= [SingleBuffered, RGBMode]
  initialWindowSize $= size
  initialWindowPosition $= Position 100 100
  createWindow progName
  clearColor $= Color4 0 0 0 0
  shadeModel $= Flat
  rowAlignment Unpack $= 1
  image <- makeImage pixelFlame
  return (size, image)
myInit :: PF.PixelFlame -> IO (Size, Image)
myInit pixelFlame = do
  let size = sizeRep pixelFlame
  (progName, _args) <- getArgsAndInitialize
  initialDisplayMode $= [SingleBuffered, RGBMode]
  initialWindowSize $= size
  initialWindowPosition $= Position 100 100
  createWindow progName
  clearColor $= Color4 0 0 0 0
  shadeModel $= Flat
  rowAlignment Unpack $= 1
  image <- makeImage pixelFlame
  return (size, image)
myInit pixelFlame = do
  let size = sizeRep pixelFlame
  (progName, _args) <- getArgsAndInitialize
  initialDisplayMode $= [SingleBuffered, RGBMode]
  initialWindowSize $= size
  initialWindowPosition $= Position 100 100
  createWindow progName
  clearColor $= Color4 0 0 0 0
  shadeModel $= Flat
  rowAlignment Unpack $= 1
  image <- makeImage pixelFlame
  return (size, image)