(export
  list-ref)

(define (list-ref xs i)
  (if (null? xs)
    nil
    (if (= i 0)
      (car xs)
      (list-ref (cdr xs) (- i 1))
    )
  )
)