         graph (->> (mc/find-maps @db "publications" {:user {$in source-uids}})
              (pmap (comp summary reaction-tree :_id))
              (sort-by :size >)
-             (take 3)
+             (take 4)
              last
              :source
              full-reaction-tree

                           {:name k
                            :group (dispatch-types (get types k))})
                         %))]
    (with-open [w (clojure.java.io/writer "resources/graph-3b.edn")]
      (binding [*print-length* false
                *out* w]
        (pr cleaned-graph))))

          (take 25)
          (map (fn [[k v]] [(:screen_name (mc/find-map-by-id @db "users" k))
                           v])))]))

(defn create-d3-graph
  "Converts zipper into d3 readable format"
