       :first :comp
       :comment "h11-comp-subcat-1"})))
 
-(def h10
+(defonce h10
   (unify
    subcat-1-principle
    head-principle

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

(def vp-non-pronoun
  {:comp {:synsem {:pronoun false}}})

(def modified {:modified true})
(def unmodified {:modified false})

(def grammar (list (unify h21
                           {:rule "adjective-phrase"
                            :synsem {:cat :adjective}})


   {:comment "h21a"
    :schema-symbol 'h21a}))

(defonce h22
  (unify
   subcat-2-2-principle
   head-principle
