(define a (list 1 2 3))
(set-cdr! a a)
(for-each (lambda (x) (display "hello world\n")) a)