import Graphics.UI.GLUT
import Graphics.Rendering.OpenGL

main = do
  (progName,_) <- getArgsAndInitialize
  createAWindow progName
  mainLoop

createAWindow windowName = do
  createWindow windowName
  displayCallback $= display

display = clear [ColorBuffer]