(define (make-ring-init)
    (define (make-ring-iter templst)
      (if (null? (cdr templst))
          (set-cdr! templst lst)
          (make-ring-iter (cdr templst)))
      templst)
    (make-ring-iter lst))