      :lookup (fn [arg]
                (analyze arg parse-lexicon))
      :enrich enrich
+     :generate {:lexicon lexicon-for-generation}
      :grammar grammar
      :rules rules
      :rule-map (zipmap rules

                                    (= (get-in % [:synsem :pronoun]) true)))
                              v)]
                  (if (not (empty? filtered-v))
                    [k filtered-v]))))]
    {:name "small"
     :morph-walk-tree (fn [tree]
                        (do

                                             (not (= (get-in % [:synsem :pronoun] false) true)))))
                              v)
                      ;; TODO: remove this removal:
                      ;; don't remove this semantic info. It's an interesting example of how to
                      ;; process a lexicon, though, so perhaps find a reason to use it in some way.
                      remove-semantic-features
                      (map (fn [lexeme]
                             (remove-matching-keys lexeme
