          loc tree]
     (if (zip/end? loc)
       {:size size
+       :source (-> (zip/root tree) :source)
        :height max-path}
       (recur
        (if (zip/node loc) (inc size) size)

         (sort-by first >)
         time))


  )

            [clj-time.periodic :as p]
            [clojure.pprint :refer [pprint]]
            [opennlp.nlp :refer [make-tokenizer make-detokenizer]]
            [incanter.core :refer [view]]
            [incanter.stats :refer [mean variance quantile]]
            [incanter.charts :as charts]
            [loom.graph :as lg]
            [loom.io :as lio]
            [ceres.collector :refer [db custom-formatter news-accounts store]])
