 ;; </TODO: move most of the content to babel.ug>
 ;; -- END SCHEMA DEFINITIONS
 
-(def vp-non-pronoun
+(defonce vp-non-pronoun
   {:comp {:synsem {:pronoun false}}})
 
-(def modified {:modified true})
-(def unmodified {:modified false})
-
-(def grammar (list (unify h21
+(defonce modified {:modified true})
+(defonce unmodified {:modified false})
+
+(defonce grammar (list (unify h21
                            {:rule "adjective-phrase"
                             :synsem {:cat :adjective}})
 

      :comp {:italiano comp-italian}
      :italiano {:a head-italian
                 :b comp-italian}})))
(def head-last
  (let [head-italian (atom :top)
        comp-italian (atom :top)
        head-cat (atom :top)

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

(defonce h21
  (unify
   subcat-2-principle
   head-principle
