(define z (list 'a 'b 'c))
(set-cdr! (cdr (cdr z)) z)

(define a '(a))
(define b '(b))
(define x (list a b))
(set-cdr! b (list x))

#0=(b ((a) #0#))