(define (make-ring n)
  (let ((last (cons 0 '())))
    (define (maak-lijst n)
      (if (zero? n)
          last
          (cons n (maak-lijst (- n 1)))))
    (let ((first (maak-lijst n)))
      (set-cdr! last first)
      first)))