biomunky

;;hacky start to boggle

(use '[clojure.java.io :only [reader]]
          '[clojure.string :only [lower-case]])

;; -- THE TRIE
(defn add-to-trie [trie x]
  (assoc-in trie x (merge (get-in trie x) {:val x :terminal true})))

(defn in-trie? [trie x]