         indices (create-indices lexicon-for-generation index-lexicon-on-paths)]
         
     {:index-fn (fn [spec] (lookup-spec spec indices index-lexicon-on-paths))
+     :default-fn default-fn
      :name "medium"
      :generate {:lexicon lexicon-for-generation}
      :grammar grammar

    (clojure.core/merge small
                        {:lexicon micro-lexicon})))

(defn medium []
  (deliver-lexicon)
  ;; TODO: remove parse-lexicon.

   [babel.italiano.lexicon :refer [deliver-lexicon lexicon]]
   [babel.italiano.morphology :refer [analyze fo]]
   [babel.parse :as parse]
   [babel.ug :refer [apply-default-if comp-modifies-head comp-specs-head
                     head-principle
                     root-is-comp root-is-comp-root
                     root-is-head root-is-head-root
