;; callback loop (define loop (lambda (time) (gl-draw) (gl:swap-buffers ctx) (callback (+ time 100) 'loop (+ time 1800))))