     (is (= "I am eating (right now)" (morph (generate progressive))))))
 
 (deftest benchmark-test []
-  (let [med (medium)
+  (let [med model
         to-run #(time (println (morph (generate
                                        {:synsem {:cat :verb, :sem {:pred :read
                                                                    :subj {:pred :woman}}

  (:refer-clojure :exclude [assoc-in get-in])
  (:require [babel.directory :refer [models]]
            [babel.english :refer [analyze fo-ps lookup generate
                                   medium morph parse sentences]]
            [babel.english.grammar :as grammar :refer [head-first head-last]]
            [babel.english.morphology :refer [get-string]]


            #?(:clj [clojure.tools.logging :as log])
            #?(:cljs [babel.logjs :as log]) 
            [dag_unify.core :refer [assoc-in dissoc-paths fail? fail-path-between get-in strip-refs unify]]))

(def model @((get models :en)))

(defn display-expression [expr]
  {:en (morph expr)
