reverse.scm

(define (reverse xs . args)
  (let ((ys (if (not (null? args)) (car args) '())))
    (if (null? xs)
      ys
      (reverse (cdr xs) (cons (car xs) ys)))))