       (def starters (filter #(= "START" (first (:root %))) hashed-trigrams))
       (def sentence-pieces (filter #(not= "START" (first (:root %))) hashed-trigrams))
 ;      (print-document start)
-      (print-document sentence-pieces)
+;      (print-document sentence-pieces)
      )
     

      (println "Get Corpus : Connected to 127.0.0.1 - " corpus-name) 
      (cql/select session "corpus" (where [[= :corpus_name corpus-name]]) (allow-filtering))
     ))
  
(defn -main
  "I don't do a whole lot ... yet."


(defn hash-ngram [ngram]
  {:root (take 2 ngram) :next-word (last ngram)}) 

(defn gen-trigram [sentence]
  (gen-ngram sentence 3)
