                              {:rule "intensifier-phrase"
                               :synsem head-synsem}))
 
+                   ;; nbar where noun is first ('h' in h11)
                    (unifyc h11-comp-subcat-1
                            (let [is-propernoun? (atom :top)
                                  head-synsem {:cat :noun

                              :head {:phrasal false
                                     :synsem {:modified false ;; TODO: document what purpose :modified serves (if any: if none, remove).
                                              :propernoun is-propernoun?}}
                              :rule "nbar"
                              :synsem head-synsem}))
                   (unifyc c10
                           comp-specs-head
                           (let [number-agreement (atom :top)

     comp-modifies-head
     head-first
     {:schema-symbol 'h11-comp-subcat-1
      :first :comp
      :comment "h11-comp-subcat-1"})))

(def h10
