Haskell GL

import qualified Graphics.UI.GLFW as G
import qualified Control.Concurrent as C
import Graphics.Rendering.OpenGL

main :: IO ()
main  = do
    i <- G.init
    w  <- G.createWindow 640 480 "HGL" Nothing Nothing
    case w of
        (Just win) -> do
              G.makeContextCurrent w
              clear [ColorBuffer]
              C.threadDelay 7000000
              G.destroyWindow win
        Nothing -> return ()
    G.terminate
    return ()