while.scm

(define (while1 cond body)
  (let ((c (call/cc (lambda (c) c))))
    (if (cond)
      (begin
        (body)
        (c c)))))

(define i 0)
(while1 (lambda () (< i 10))
        (lambda ()
          (print i)
          (set! i (+ i 1))))
(print "end")