    [dag_unify.core :refer [fail-path-between get-in remove-false strip-refs unify]]
    [hiccup.core :refer [html]]))
 
+(defn analyze [surface-form]
+  (morph/analyze surface-form lexicon))
+
 (defn generate
   ([spec]
    (let [result (engine/generate spec medium)]

         :headers {"Content-Type" "text/html;charset=utf-8"}})
  ))



(defn expr [id]
  (reader/id2expression (Integer. id)))

(def rules (:grammar-map medium))

