     :comp {:synsem {:subcat '()}}
     :head {:synsem {:subcat '()}}}))
 
-(def h00
+(defonce h00
   (unify-check
    head-first
    {:comment "h00"

      :first :head
      :comment "c11-comp-subcat-1"})))

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

   [:synsem :sem :pred]
   ])

(defonce tenses
  {"present simple" {:synsem {:sem {:tense :present
                                    :aspect :simple}}}
   "present progressive" {:synsem {:sem {:tense :present
