 
 (defn expr [id]
   (reader/id2expression (Integer. id)))
-
-(def foo (expression {:synsem {:cat :verb}}))
-;(def foo (lightning-bolt nil nil nil))
-(def foo2 (expression {:synsem {:sem {:pred :have-fun}}}))
 
 (def rules (:grammar-map medium))
 

   [dag_unify.core :refer [fail-path-between get-in remove-false strip-refs unify]]
   [hiccup.core :refer [html]]))

(defn generate
  ([spec]
   (let [result (engine/generate spec medium)]

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

(def initialize
  (do (fo (parse "je parle"))
      (str "" (expression {:synsem {:cat :verb}}))))

