(use-modules (srfi srfi-1) (ice-9 format))
 
(unfold (lambda (x) (> x 420))
        (lambda (x) (display (format "~a~%" x)))
	    (lambda (x) (+ x 1))
	    1)