         subcat2 (atom {:cat :top})
         subcat3 (atom {:subcat {:1 subcat1
                                :2 subcat2
-                               :3 '()}})]
+                               :3 []}})]
     {:synsem {:subcat {:1 subcat1
                        :2 subcat2
-                       :3 '()}}
+                       :3 []}}
      :comp {:synsem subcat3}
      :head {:synsem {:subcat {:1 subcat1
                               :2 subcat3
-                              :3 '()}}}}))
+                              :3 []}}}}))
 
 ;;     subcat<1>
 ;;     /      \

;; H subcat<1>  C[1]
(def subcat-1-principle
  (let [comp-synsem (atom :top)]
    {:synsem {:subcat '()}
     :head {:synsem {:subcat {:1 comp-synsem
                              :2 '()}}}
     :comp {:synsem comp-synsem}}))

;;     subcat<>

  (let [comp-synsem (atom {:cat :top})
        parent-subcat (atom {:cat :top})]
    {:synsem {:subcat {:1 parent-subcat
                       :2 []}}
     :head {:synsem {:subcat {:1 parent-subcat
                              :2 comp-synsem
                              :3 []}}}
     :comp {:synsem comp-synsem}}))

;;     subcat<1,3>
