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

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


;;     subcat<1>

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

