(include "lib/core.scm")
(define (make-int-generator n)
(make-generator
(lambda (consumer)
(let loop ((n n))
(consumer n)
(loop (+ n 1))))))
(let ((g (make-int-generator 42)))
(printn (g))
(printn (g))
(printn (g))
(printn (g))
(printn (g))
(printn (g))
(printn (g))
)