 
 (defn analyze
   ([surface-form]
-   (analyze surface-form (:lexicon medium)))
+   (analyze surface-form (:lexicon @medium)))
   ([surface-form lexicon]
    (morph/analyze surface-form lexicon)))
 

            result))))

(defn lightning-bolts [spec]
  (generate/lightning-bolts (:grammar medium) (:lexicon medium) spec 0 (:index medium) nil (:morph medium)))

(def tokenizer #"[ '\n,’».]")


(defn fo-ps [expression]
  (morph/fo-ps1 expression))

(def lexicon (:lexicon @medium))
(def infinitives
  (filter (fn [k] 
            (let [vals (get lexicon k)]
