For writing GLUT's main loop in the style of Haskell's main function.