                 (let [propernoun (atom :top)
                       head-sem (atom :top)
                       mod-sem (atom {:subj head-sem})
-                      rest-mod '()]
+                      rest-mod []]
                   {:rule "nbar1"
                    :synsem {:reflexive false
                             :propernoun propernoun

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

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

(def c11
  (unify-check

          comp-sem (atom :top)
          head-mod (atom :top)
          head-synsem (atom {:cat cat
                             :subcat []
                             :mod head-mod
                             :sem head-sem})]
      {:phrasal true
