(define reverse
    (lambda (xs)
      (if (null? xs)
          '()
          (if (null? (cdr xs))
              xs
              (cons (car (reverse (cdr xs)))
                    (reverse (cons (car xs)
                                   (reverse (cdr (reverse (cdr xs)))))))))))