#lang scheme

(require scheme/generator)

(define (leaky)
  (for ([file (in-range 135)])
    (let ([gen (in-generator (for ([i (in-range 37000)])
			       (yield 42)))])
      (for ([item gen])
	(void)))))
(leaky)