displayLoop :: PF.PixelFlame -> IO ()
displayLoop pixelFlame = do
  (size, flameImage) <- myInit pixelFlame
  displayCallback $= display size flameImage
  reshapeCallback $= Just reshape
  keyboardMouseCallback $= Just keyboard
  mainLoop
displayLoop :: PF.PixelFlame -> IO ()
displayLoop pixelFlame = do
  (size, flameImage) <- myInit pixelFlame
  displayCallback $= display size flameImage
  reshapeCallback $= Just reshape
  keyboardMouseCallback $= Just keyboard
  mainLoop
displayLoop pixelFlame = do
  (size, flameImage) <- myInit pixelFlame
  displayCallback $= display size flameImage
  reshapeCallback $= Just reshape
  keyboardMouseCallback $= Just keyboard
  mainLoop