          max-path)
        (zip/next loc)))))
 
+
+(defn example-graph []
+  (let [tree (compute-impact-graph (mc/find-map-by-id (:db @mongo-state) "origins" (ObjectId. "53de1541657a439ad20d6859")))]
+    (-> [(simplify-graph tree) (tree-height tree)]
+        clojure.pprint/pprint)))
+
+
 (comment
 
   ;; TODO update on server

  (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)

  (count articles)


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

  (->> (get-news-frequencies)
       time)


  (->> (pmap #(vector % (mc/count (:db @mongo-state) "origins" {:source %})) (:news-accounts @mongo-state))
       vec
       time)

  (def html-regexp #"<(.| )*?>")

  (def the-html (:html (last (mc/find-maps (:db @mongo-state) "articles"))))

  (->> (clojure.string/split the-html #"\n")
       (map count)
       (clojure.core/sort >))

  (-> (get-articles-from-date 8 1)
      count
      time)


  (-> (spit "/home/konny/data/articles-8-1.edn" (export-articles 8 1))
      time)

)

              [:tweet]
              #(into {} [
                         [:text (-> % :text)]
                         [:id (-> % :id_str)]
                         [:user (-> % :user :screen_name)]
                         [:reply (-> % :in_reply_to_status_id_str)]
                         [:delay (let [post-delay (if (t/after? (-> % :created_at) post-time)
