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