gistfile1.clj

(defn map-select [row selector]
  (apply str (concat (interpose "\t" (selector row)) "\n")))

(defn tsv [rows]
  (let [header (map-select (first rows) keys)
        rows (apply str (for [row rows]
                          (map-select row vals)))]
    (str header rows)))

; => (def p [{"a" 34 "b" 234 "c" 234} {"a" 234 "b" 234 "c" 24}])
; => (tsv p)
; => "a\tb\tc\n34\t234\t234\n234\t234\t24\n"