                     (if (not (empty? filtered-v))
                       [k filtered-v]))))]
       {:name "medium"
+       :morph-walk-tree (fn [tree]
+                          (do
+                            (merge tree
+                                   (morph-walk-tree tree))))
        :grammar grammar
        :morph fo
        :lexicon lexicon

                      [k filtered-v]))))
          ]
      {:name "small-plus-vp-pronoun"
       :language "en"
       :morph fo
       :grammar grammar

                   (unifyc h10
                           {:head {:phrasal false
                                   :synsem {:cat :sent-modifier}}
                            :rule "s-modifier"})))

(defn aux-is-head-feature [phrase]
  (cond (= :verb (get-in phrase '(:synsem :cat)))
