(define-syntax-rule (my-while condition body) (let loop () (when condition body (loop)))) (define x 0) (my-while (<= x 10) (begin (displayln x) (set! x (+ x 1))))