     (with-open [listings (io/reader (:listings-uri conf))
                 out      (io/writer (:out-uri conf))]
       (doseq [result-item (->> (line-seq listings)
-                               (mapv parse-json)
+                               ;(mapv parse-json)
+                               ;(iota/seq (:listings-uri conf))
                                (t-match products))]
-                               ;(iota/seq (:listings-uri conf))
-                               ;(r/map (fn [s] (let [z (parse-json s)]
-                               ;                 (println z)
-                               ;                 z)))
-                               ;(r-match products))]
                                ;(match-all products)
                                ;group-matches)]
         (json/generate-stream result-item out)

                  {:product_name (:product_name prod)
                   :listings (map listing matching-listings)}
                  matching-listings))))))

(defn -main
  [& args]

                identity)
          listings)))

(p/defnp group-matches [matches]
  (let [product first
        listing second]
