     (->> graph
          clojure.pprint/pprint))
 
+
+
 )

       (zip/next loc)))))


(comment

  ;; TODO update on server


  (def articles (mc/find-maps (:db @mongo-state) "origins" {:source {$in (:news-accounts @mongo-state)}}))


  (def example-graph (compute-impact-graph (mc/find-map-by-id (:db @mongo-state) "origins" (ObjectId. "53da170d657a10b9f098be86"))))


  (->> (simplify-graph (-> articles rand-nth compute-impact-graph))
       clojure.pprint/pprint)


  (let [trees (pmap compute-impact-graph articles)]
    (->> (pmap tree-height trees)
         frequencies
         clojure.pprint/pprint))


  (-> example-graph
      zip/down
      zip/down
      zip/down
      zip/path
      count
      clojure.pprint/pprint)




  (loop [counter 0
