                                        :cat :noun
                                        :propernoun is-propernoun?
                                        :sem {:number number-agreement
-                                             :mod '()}}
+                                             :mod []}}
                               :head {:phrasal false
                                      :synsem {:propernoun is-propernoun?}}
                               :comp {:phrasal false}})) ;; rathole prevention ;; TODO: see if this can be removed.

                                modified
                                (let [sem (atom :top)
                                      essere (atom :top)]  ;; TODO: use (default) to set this for all {:cat :verb} rules.
                                  {:synsem {:subcat '()
                                            :cat :verb
                                            :essere essere 
                                            :sem sem}
                                   :comp {:synsem {:cat :prep
                                                   :subcat '()}}
                                   :head {:modified false
                                          :synsem {:cat :verb
                                                   :essere essere
                                                   :sem sem
                                                   :subcat '()}}
                                   :rule "s-modified-modifier-last"}))))

(defn aux-is-head-feature [phrase]

   {:comment "h00"
    :schema-symbol 'h00 ;; used by over-each-parent to know where to put children.
    :first :head
    :comp {:synsem {:subcat []}}
    :head {:synsem {:subcat []}}}))

;; </TODO: move most of the content to babel.ug>
;; -- END SCHEMA DEFINITIONS
