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

            [ceres.collector :refer [db custom-formatter news-accounts store]])
 (:import org.bson.types.ObjectId))


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

(def tokenize (make-tokenizer "data/de-token.bin"))
(def stopwords (read-string "data/stopwords.txt"))


;; --- DATA MINING ---


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