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