 
   (def rand-tree (time (random-tree)))
 
-  (loop [counter 10]
-    (if (= counter 0)
-      :true
-      (do (time (random-tree))
-          (recur (dec counter)))))
-
-
   (-> rand-tree :analysis :height)
 
   (-> rand-tree :analysis :size)
-
-  (-> rand-tree :tree ffirst second :_id aprint)
 
   (-> rand-tree :analysis aprint)
 

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

;; --- DATA MINING ---

(defn get-news-frequencies

         (let [user (-> node :tweet :user)]
             (conj users (:screen_name user)))
         users)
       (if (zip/node loc)
         (conj
          tokens
          (clojure.set/difference
