ref: fe72c101e29f4f99f42547d3c8b5673e851bb5ef
dir: /femtolisp/wt.lsp/
(set! i 0)
(define-macro (while- test . forms)
`((label -loop- (lambda ()
(if ,test
(begin ,@forms
(-loop-))
nil)))))
(while (< i 10000000) (set! i (+ i 1)))