Dump DBF to Tab file in Clojure

(defn dbf->tabfile [dbfile tabfile]
  (with-open [dbf (org.xBaseJ.DBF. dbfile)]
    (with-open [outp (java.io.PrintWriter. tabfile)]
      (binding [*out* outp]
        (println (str/str-join "\t" (field-names dbf)))
        (for-each-row 
         (fn [recno fields]
           (println (str/str-join "\t" (map #(.trim (.get %)) fields))))
         dbf)))))

(dbf->tabfile 
 (kutils/expand-file-name "~/data-sets/tiger-line/data/tmp/tl_2008_us_state.dbf") 
 (kutils/expand-file-name  "~/us_state.tab"))