babashka script to process csv

csv.clj

#!/usr/bin/env bb

;; cat test.csv | csv.clj '(fn [m] (get m "column1"))'

(defn lines->maps [lines]
  (let [headers (first lines)
        body (rest lines)]
    (->> body
         (map (partial zipmap headers)))))

(def process (or (some-> *command-line-args* 
                         first 
                         load-string 
                         eval) 
                 identity))

(with-open [reader (io/reader *in*)] 
  ;; bb auto alias clojure.data.csv as csv
  (doseq [output (->> (csv/read-csv reader)
                      (lines->maps)
                      (map process))]
    (println output)))