Ex-2.18

(define (reverse l)
  (define (iter a r)
    (if (null? a) r
        (iter (cdr a) (cons (car a) r))))
  (iter l '()))