1000

; example8

(lambda (input)
  (letrec ((reverse (lambda (in result)
                      (if (pair? in)
                        (reverse (cdr in) (cons (car in) result))
                        result))))
    (reverse input '())))

((a b c d e f g h i j k l m n o p q r s t u v w x y z))

(lambda ()
  (list 'z 'y 'x 'w 'v 'u 't 's 'r 'q 'p 'o 'n
        'm 'l 'k 'j 'i 'h 'g 'f 'e 'd 'c 'b 'a))