(begin (define countdown (let ((count 4)) (lambda () (set! count (- count 1)) count) ) ) (display (countdown)) (display (countdown)) (display (countdown)) (countdown) )