      :lookup (fn [arg]
                (analyze arg lexicon))
      :enrich enrich
+     :generate {:lexicon lexicon-for-generation}
      :grammar grammar
      :lexicon lexicon
-     :index (create-index grammar (flatten (vals lexicon)) head-principle)
+     :index (create-index grammar (flatten (vals lexicon-for-generation)) head-principle)
      :rules rules
      :rule-map (zipmap rules grammar)}))
 

                                             (not (= (get-in % [:synsem :pronoun] false) true)))))
                              v)
                      ;; TODO: remove this removal:
                      ;; don't remove this semantic info.
                      remove-semantic-features
                      (map (fn [lexeme]
                             (remove-matching-keys lexeme

     :lookup (fn [arg]
               (analyze arg lexicon))
     :enrich enrich
     :generate {:lexicon lexicon-for-generation}
     :grammar grammar
     :lexicon lexicon
     :index (create-index grammar (flatten (vals lexicon)) head-principle)}))
