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