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

                 :b head-italian}})))

;; -- BEGIN SCHEMA DEFINITIONS
(def c10
  (unify
   ug/c10
   head-last))

(def c21
  (unify
   ug/c21 head-last))

(def h11
  (unify
   ug/h11
   head-first))

;; <TODO: move most of the content to babel.ug as the above examples (c10,c21,h11) do.>
(def c11-comp-subcat-1
  (let [subcat (atom :top)]
    (unify
     {:head {:synsem {:subcat {:1 subcat}}}

        true phrase))

;; TODO: warn about failures.
(defonce grammar
  (map (fn [phrase]
         (modal-is-head-feature
          (aux-is-head-feature phrase)))
