;; With CHICKEN 6 (commit 9d2dc48f52afa26f77a20c849377a831504767df)

(import (chicken number-vector))

(define c64v (c64vector 1+2i 3+4i 5+6i))
(print c64v)
;; #c64(1.0+2.0i 1.0+2.0i 2.0+3.0i)
(print (c64vector-ref c64v 0))
;; 1.0+2.0i
(print (c64vector-ref c64v 1))
;; 1.0+2.0i
(print (c64vector-ref c64v 2))
;; 2.0+3.0i

(define c128v (c128vector 1+2i 3+4i 5+6i))
(print c128v)
;; #c128(1.0+2.0i 1.0+2.0i 2.0+3.0i)
(print (c128vector-ref c128v 0))
;; 1.0+2.0i
(print (c128vector-ref c128v 1))
;; 1.0+2.0i
(print (c128vector-ref c128v 2))
;; 2.0+3.0i