          max-path)
        (if-let [node (zip/node loc)]
          (let [user (-> node :tweet :user)]
-             (conj users (-> {:name (:screen_name user) :followers (:followers_count user)})))
+             (conj users (:screen_name user)))
          users)
+       #_(if (zip/node loc) (conj tokens (clojure.set/difference (into #{} (-> loc zip/node :tweet :text tokenize)) (first tokens))) tokens)
+       (if-let [node (zip/node loc)]
+         (->> node :tweet :created_at (conj pub-times))
+         pub-times)
        (if-let [node (zip/node loc)]
          (->> node :tweet :entities :hashtags (into hashtags))
          hashtags)

               post-delay (if (t/after? (-> loc zip/node :tweet :created_at) pub-time)
                            (t/interval pub-time (-> loc zip/node :tweet :created_at))
                            (t/interval (-> loc zip/node :tweet :created_at) pub-time))]
           (conj delays (t/in-hours post-delay)))
         delays)
       (zip/next loc)))))


(defn compute-summary [source]
  (let [impact-forest (compute-impact-forest source)
        analytics (map analyze-tree impact-forest)
        sizes (map :size analytics)
        heights (map :height analytics)
        users (frequencies (flatten (map :users analytics)))
        hashtags (frequencies (flatten (map :hashtags analytics)))
        overall-size (reduce + sizes)]
    {:source source
     :articles (count impact-forest)
     :top-users (take 50 (sort-by second > users))
     :hastags (take 50 (sort-by second > hashtags))
     :total-impact overall-size
     :avg-impact (float (/ overall-size (count sizes)))
     :no-reactions (float (/ (count (filter #(< % 1) heights)) (count heights)))

  [tree]
  (loop [pub-time (-> (zip/root tree) :source :ts)
         hashtags []
         tokens []
         loc tree]
    (if (zip/end? loc)
      {:root (zip/root loc)
       :tokens (frequencies tokens)
       :hashtags (frequencies (map :text hashtags))}
      (recur
       pub-time
       (if-let [node (zip/node loc)]
         (->> node :tweet :entities :hashtags (into hashtags))
         hashtags)
       (if (zip/node loc) (conj tokens (clojure.set/difference (into #{} (-> loc zip/node :tweet :text tokenize)) (first tokens))) tokens)
       (if (nil? (zip/node loc))
         (zip/next loc)
         (zip/next
