   (let [search-query (get (get request :query-params) "search")]
     (html
      [:div#workbook-ui {:class "quiz-elem"}
-      [:h2 "Italian Workbook"]
+      [:h2 "Italiano Workbook"]
 
       [:div.hints
        [:h3 "Try:"]
        [:div "(expr X)"]
-       [:div "(parse 'je parle')"]
+       [:div "(parse 'I speak')"]
 
        ]
 

   (GET "/" request
        {:status 200
         :body (html/page "Italian Workbook" (workbook-ui request) request)
         :headers {"Content-Type" "text/html;charset=utf-8"}})

   (GET "/parse/" request
        {:status 200
         :body
         (let [debug (log/info (str "sending string to parser.."))]
           (str "" (html/tablize
                    (get-in (strip-refs (first (parse (get (get request :query-params) "string"))))
                            [:synsem :sem]))))
         :headers {"Content-Type" "text/html;charset=utf-8"}})

   (GET "/q/" request

   [clojure.string :as string]
   [clojure.tools.logging :as log]
   [compojure.core :as compojure :refer [GET PUT POST DELETE ANY]]
   [dag_unify.core :refer [fail? fail-path-between get-in remove-false strip-refs unify]]
   [hiccup.core :refer [html]]))

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

(defn generate
  ([]
   (let [result (engine/generate :top medium)]
     (conj {:surface (fo result)}
            result)))
  ([spec]
   (let [result (engine/generate spec medium)]
     (conj {:surface (fo result)}
            result)))
  ([spec model]
   (let [result (engine/generate spec model)]
     (conj {:surface (fo result)}
           result))))

(defn lookup [lexeme]
  ((:lookup medium) lexeme))

(defn parse
  ([string]
