gistfile1.txt

(defn bar [input]
  (let [xf1 (partial re-seq #"[-\w]+")
        xf2 (fn [[x & ys]]
              [x
               (->> ys
                    (map-indexed #(if (odd? %1)
                                    (read-string %2)
                                    %2))
                    (apply assoc {}))])]
    (transduce (comp (map xf1)
                  (map xf2))
               (completing (fn [m kvs]
                             (apply assoc m kvs)))
               {}
               (str/split-lines input))))
               
(def foo "one property1 1, property2 1\ntwo property1 2, property2 2\nthree property1 3, property2 3\n")