; loading /usr/local/lib/dev-chicken/11/srfi-1.so ...
#;31> (define x `(1 2 3))
#;32> x
(1 2 3)
#;33> (reverse! x)
(3 2 1)
#;34> x
(1)