(import chicken scheme)
(use (prefix glfw3 glfw:) (prefix opengl-glew gl:) gl-math gl-utils posix)


(glfw:with-window (640 480 "Example" resizable: #f
                       context-version-major: 2
                       context-version-minor: 1)
  (gl:init)
  (gl:clear-color 1 0 0 1)
  (gl:clear (bitwise-ior gl:+color-buffer-bit+ gl:+depth-buffer-bit+))
  (glfw:poll-events)
  (glfw:swap-buffers (glfw:window))
  (sleep 2)

)