DEFINE:loop:(defun loop\
	(all\
		statement\
		(cond (= $1 (- $2 1))\
			$1\
			(loop (+ $1 1) $2))))\
(loop start end)\
:start:end:statement