 ;;
 ;;     => (let [data [{:this "a" :that "b"}
 ;;                    {:this "x" :that "y"}]]
-;;          (transduce (vectorize) conj [] data))
+;;          (into [] (vectorize) data))
 ;;     (["this" "that"]
 ;;      ["a" "b"]
 ;;      ["x" "y"])

;; by passing a single casting function as the first argument.
;;
;;     => (with-open [in-file (io/reader "test/test.csv")]
;;          (transduce
;;            (comp
;;              (remove-comments)
;;              (mappify)
;;              (cast-with #(Integer/parseInt %) {:only [:this :that]}))
;;            conj
;;            []
;;            (csv/parse-csv in-file)))
;;
;;     ({:this 1, :that 2, :more "stuff"}
;;      {:this 2, :that 3, :more "other yeah"})

;;                 (assoc row :jazz (* (:this row)
;;                                     (:that row)))))
;;             (vectorize))
;;           (cd-csv/read-csv in-file))
;;         (cd-csv/write-csv out-file)))
;;
