    head-first
    {:comment "h22"
     :schema-symbol 'h22 ;; used by over-each-parent to know where to put children.
-    :first :head}))
+    }))
 
 (def h32
   (unify-check

   head-first
   {:comment "h10"
    :schema-symbol 'h10 ;; used by over-each-parent to know where to put children.
    :first :head}))

(def h21
  (unify-check

     :comp {:english comp-english}
     :english {:a head-english
               :agr agr
               :b comp-english}
     :first :head}))
               
(def head-last
  (let [agr (atom :top)
        head-english (atom {:agr agr})
