(bind-func range:[List{!a}*,!a,!a]* (lambda (start end) (let ((val (- end (convert 1))) (result null)) (while (>= val start) (set! result (cons val result)) (set! val (- val (convert 1)))) result)))