         rows         (utils/get-rows table)
         thread-id    (get-thread-id url)
         data         (map get-thread-data rows)
-        data1        (map get-and-rm-users data)
-        comb-data    (apply merge-with into data1)
+        comb-data    (reduce #(merge-with into %1 %2) data)
 
         ;users        (reduce union (map #(get-in % [:bulbs :users]) data))
         ;replies      (map #(update-in % [:bulbs] dissoc :users) data)

(defn get-thread-data
  [row]
  (let [cols      (utils/get-cols row)
        reply-url (get-reply-url cols)]
    {:id      (get-reply-id reply-url)
     :title   (get-reply-title cols)
     :indent  (get-indent-level cols)
     :bulbs   (bulbs/get-data reply-url)}))
        ;
        ;reply-id     (get-reply-id reply-url)
        ;reply-title  (get-reply-title cols)

;      (merge thread-data (get-data-helper (rest rows) reply-parents thread-data)))))


(defn get-data-by-url
  [url]
  ; {:browser :firefox :profile bo-ffprofile}
