1 2 3 4 5 6 7 8 9
(define (step) (call-with-current-continuation (lambda (c) (set! step c) c))) (step)