; Enjoy with `csc -O3 this-file.scm`
(define (main-loop renderer)
  (main-loop renderer))

(when (zero? 0)
  (let ()
    (when #t
      (when #t
        (main-loop renderer)))))