(define (mon-reverse L) (define (epuise L dest) (if (null? L) dest (epuise (cdr L) (cons (car L) dest)))) (epuise L '()))