uniform-array-write

(define arr (make-array '1 3 3))