                :agr agr
                :b head-english}
      :first :comp}))
+
+;; TODO: promote this version of comp-specs-head
+;; to ug.
+(def comp-specs-head
+  (unify-check
+   ug/comp-specs-head
+   (let [mod (atom :top)]
+     {:synsem {:sem {:mod mod}}
+      :head {:synsem {:mod mod}}})))
+
+(def head-mod
+  (unify-check
+   (let [head-mod (atom :top)]
+     {:synsem {:mod {:rest head-mod}}
+      :head {:synsem {:mod head-mod}}})))
+
+(def comp-mod
+  (unify-check
+   head-mod
+   (let [comp-sem (atom :top)]
+     {:synsem {:mod {:first comp-sem}}
+      :comp {:synsem {:sem comp-sem}}})))
 
 ;; -- BEGIN SCHEMA DEFINITIONS
 (def c10

                              :tense mod-tense
                              :aspect mod-aspect
                              :obj :modified
                              :pred mod-pred}
                      :rest head-mod}
                :subcat head-subcat}
       :comp {:phrasal true
              :synsem {:slash true

   [babel.parse :as parse]
   [babel.ug :as ug
    :refer [apply-default-if 
            head-semantics
            head-principle root-is-comp
            root-is-head root-is-head-root
            subcat-1-principle subcat-1-1-principle
