startNewGame :: IO ()
startNewGame = do
    sceneRef <- newIORef $ createEmptyScene gameArea
    displayCallback $= drawingCallback sceneRef
    keyboardMouseCallback $= Just (inputCallback sceneRef)
    timerCallback sceneRef
startNewGame :: IO ()
startNewGame = do
    sceneRef <- newIORef $ createEmptyScene gameArea
    displayCallback $= drawingCallback sceneRef
    keyboardMouseCallback $= Just (inputCallback sceneRef)
    timerCallback sceneRef
startNewGame = do
    sceneRef <- newIORef $ createEmptyScene gameArea
    displayCallback $= drawingCallback sceneRef
    keyboardMouseCallback $= Just (inputCallback sceneRef)
    timerCallback sceneRef