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

;; This is a property of transducers.
;;
;;     => (with-open [in-file (io/reader "test/test.csv")]
;;          (transduce
;;            (comp (remove-comments) (mappify))
;;            conj
;;            []
;;            (csv/parse-csv in-file)))
;;
;;     ({:this "1", :that "2", :more "stuff"}
;;      {:this "2", :that "3", :more "other yeah"})

;;     (with-open [in-file (io/reader "test/test.csv")
;;                 out-file (io/writer "test-out.csv")]
;;       (->>
;;         (sequence
;;           (comp
;;             (remove-comments)
;;             (mappify)
