gosh> (define x
  (do ((i 0 (+ i 1))
       (l '() (cons (lambda () i) l)))
      ((>= i 5) l)))
x
gosh> (map (lambda (e) (e)) x)
(4 3 2 1 0)
gosh>