        :language "it"
        :language-keyword :italiano
        :morph fo
+       :lookup (fn [arg]
+                 (analyze arg lexicon))
        :enrich enrich
        :grammar grammar
        :lexicon lexicon

   [babel.cache :refer [create-index]]
   [babel.enrich :refer [enrich]]
   [babel.italiano.lexicon :refer [lexicon]]
   [babel.italiano.morphology :refer [fo]]
   [babel.ug :refer :all]
   [clojure.tools.logging :as log]
   [dag-unify.core :refer (fail? get-in merge unifyc)]))

       :language "it"
       :language-keyword :italiano
       :morph fo
       :lookup (fn [arg]
                 (analyze arg lexicon))
       :enrich enrich
       :grammar grammar
       :lexicon lexicon
       :index (create-index grammar (flatten (vals lexicon)) head-principle)
       })))

(defn toks [surface]
  (parse/toks surface (:lexicon @small) (:lookup @small)))

(defn parse [surface]
  (parse/parse surface
               (:lexicon @small)
               (:lookup @small)
               (:grammar @small)))

(log/info "Italian grammar defined.")
