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

     (parse input medium)))

  ([input model]
   (let [input (preprocess input)]
     (cond (string? input)
           (map (fn [tokenization]
                  {:tokens tokenization

            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,’».]")

