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