 
 (defn hash-ngram [ngram]
   {:root (take 2 ngram) :next-word (last ngram)}) 
-
-(defn make-ngram-hash [ngrams]
-  (let [])
-  )
 
 (defn gen-trigram [sentence]
   (gen-ngram sentence 3)

      (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."

      (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)
     )
    
