          max-path)
        (zip/next loc)))))
 
+(defn compute-impact-forest [source]
+  (let [source-origins (mc/find-maps db "origins" {:source source})]
+    (vec (pmap compute-impact-tree source-origins))))
+
 
 (defn example-tree []
-  (let [tree (compute-impact-tree (mc/find-map-by-id db "origins" (ObjectId. "53de1541657a439ad20d6859")))] ; alternativ "53de3d68657a74caed255892" "53d7a7ad657ad4126658d0ba" "53de089f657a439ad20d6133"
+  (let [tree (compute-impact-tree (mc/find-map-by-id db "origins" (ObjectId. "53e4a2f8e4b04c026f6f5a3d")))] ; alternativ "53de3d68657a74caed255892" "53d7a7ad657ad4126658d0ba" "53de089f657a439ad20d6133"
     {:graph (simplify-tree tree)
      :height (tree-height tree)
      :size (compute-dfs tree)}))

    {:graph (simplify-tree tree)
     :height (tree-height tree)
     :size (compute-dfs tree)}))


;; --- MONGO DATA EXPORT/IMPORT ---


(timbre/refer-timbre)

(defrecord Source [name articles])
(defrecord Article [source tweet reactions])
(defrecord Reaction [tweet reactions])


(def tokenize (make-tokenizer "/home/konny/data/open-nlp/de-token.bin"))

(def stopwords
  (into #{}
