(define (reverse l)
(define (reverse-acc l acc)
(if (null? l)
acc
(reverse-acc (cdr l) (cons (car l) acc))))
(reverse-acc l '()))