; Recursive definition of a for-loop function.
(defun for (start until body)
    (cond ( (> start until) nil)
	  ( t (apply body (list start))
	      (for (1+ start) until body))
    )
)

;
; Lisp equivalent of the following CJ for loop:
;
;     for (i=1; i<10; i++) {
;         print(i);
;     }
;
(for 1 10 (lambda (i)
    (print i))
)