rev.scm

(define (rev lst)
  (if (or (null? lst)
          (null? (cdr lst)))
      lst
      (apply (lambda (x . xs)
               (apply (lambda (y . ys)
                        (cons y (rev (cons x (rev ys)))))
                      (rev xs)))
             lst)))

http://stackoverflow.com/a/19536834/849891