(define x (list 1 2 3))
; (set-cdr! (cddr x) x)
(set! *print-circle* #t) ; How to enable in chicken scheme?
(format #t "~A~%" x)
;(display x)
;(print x)