;; używasz tego tak: (eval (list reverse1 argument)), gdzie argument to np. '(cons 2 (cons 4 (cons 6 null))) albo '(list 1 2 3) ...

(define reverse1
  '(lambda (xs) ((lambda-rec (iter xs ys) (if (null? xs)
                                             ys
                                             (iter (cdr xs) (cons (car xs) ys)))) xs null)))

(eval (list reverse1 '(cons 2 (cons 4 (cons 6 (cons 8 null))))))