リストのn番目の要素を返す手続きlist-refの実装

cdrダウンすることで実現できる

(define (list-ref items n)
  (if (= n 0)
    (car items)
    (list-ref (cdr items) (- n 1))
  )
)