                                      :cat :verb}}
                            vp-non-pronoun)
                    
-                   (unifyc c21
+                   (unify c21
                            root-is-head-root
                            {:head {:phrasal true}
                             :comp {:synsem {:cat :noun

(def head-first
  (let [head-italian (atom :top)
        comp-italian (atom :top)]
    (unifyc
     {:comp {:italiano {:initial false}}
      :head {:italiano {:initial true}}}
     {:head {:italiano head-italian}


(def h11-comp-subcat-1
  (let [subcat (atom :top)]
    (unify
     {:head {:synsem {:subcat {:1 subcat}}}
      :comp {:synsem {:subcat {:1 subcat}}}}
     subcat-1-1-principle-comp-subcat-1
