#;6> (use utf8)
#;7> (define vv (make-array vector-storage-class #(1000 1000) "1"))
#;8> (time (array-map vector-storage-class (cute string-append "file" <> ".txt") vv))
1.107s CPU time, 0.156s GC time (major), 4046851/1011534 mutations (total/tracked), 1/7837 GCs (major/minor)
#<array>
#;9>