(load "3.12.txt")

(define (make-cycle x)
  (set-cdr! (last-pair x) x)
  x)

(define z (make-cycle (list 'a 'b 'c)))

; (last-pair z) will iterate around the cycle forever and never terminate