 (defn fo-ps [expression]
   (morph/fo-ps1 expression))
 
-(def lexicon (:lexicon medium))
+(def lexicon (:lexicon @medium))
 (def infinitives
   (filter (fn [k] 
             (let [vals (get lexicon k)]


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


            result))))

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

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

