          delays)
        (zip/next loc)))))
 
+
 (defn build-tree-from-source [id]
   (let [origin (mc/find-map-by-id @db "origins" id)
         tree (compute-impact-tree origin)]


(defn compute-summary [source]
  (let [impact-forest (compute-impact-forest source)
        analytics (map analyze-tree impact-forest)
        sizes (map :size analytics)
        pub-times (map :pub-times analytics)
        heights (map :height analytics)

                                        {:user.screen_name {$in news-accounts} }]})]
    (aprint (float (/ news-count overall-count))))

  (def origin (time (rand-nth (mc/find-maps @db "origins" {:source {$in news-accounts}}))))

  (println "\n")

  (def tree (time (compute-impact-tree origin)))

  (def dpa-sum (time (compute-summary "dpa")))

  (aprint (keys dpa-sum))

  (def tagesschau-sum (time (compute-summary "tagesschau")))

  (aprint (dissoc dpa-sum :heights :sizes :users :hashtags :pub-times :no-reactions :delays))


  (->> (mc/find-maps @db "tweets" {:created_at {$gt (t/date-time 2014 7 1)
                                                $lt (t/date-time 2014 10 1)}}
                     [:user.id_str])
       (pmap #(-> % :user :id_str))
       (into #{})
       count
       aprint
       time)

  )

