SICP 問題 2.18

(define (reverse items)
  (define (iter lis result)
    (if (null? lis)
        result
        (iter (cdr lis) (cons (car lis) result))))
  (iter items nil))