#;1> (use srfi-1)
; loading /opt/chicken-4.12.0//lib/chicken/8/srfi-1.import.so ...
; loading library srfi-1 ...
#;2> (define xs (list 1 2 3 4 5 6))
#;3> (define ys (take xs 3))
#;4> xs
(1 2 3 4 5 6)
#;5> ys
(1 2 3)
#;6> (define zs (take! xs 3))
#;7> xs
(1 2 3)
#;8> zs
(1 2 3)
#;9>