                            :obj {:human false
                                  :music true}}}}]
 
-   "prepare" (let [subject-semantics (ref {:human true})]
-               {:synsem {:cat :verb
-                         :sem {:pred :get-ready
-                               :subj subject-semantics
-                               :obj subject-semantics}
-                         :subcat {:1 {:sem subject-semantics}
-                                  :2 {:pronoun true
-                                      :reflexive true
-                                      :sem subject-semantics}}}})
+   "prepare" {:synsem {:cat :verb
+                       :sem {:pred :get-ready
+                             :subj {:human true}}
+                       :subcat {:2 {:pronoun true
+                                    :reflexive true}}}}
    "preserve" {:synsem {:cat :verb
                         :sem {:pred :preserve}}}
 

                         (if-then {:synsem {:cat :verb
                                            :subcat {:2 {:pronoun true
                                                         :reflexive true}}}}
                                  (let [subject-agr (ref :top)]
                                    {:synsem {:subcat {:1 {:agr subject-agr}
                                                       :2 {:agr subject-agr}}}})))))


            
   "hurt" (let [common {:english {:past "hurt (past)"}
                        :synsem {:cat :verb}}]
            [(unify common
                    {:synsem {:sem {:pred :hurt-oneself}
                              :subcat {:1 {:sem {:human true}}
                                       :2 {:pronoun true
                                           :reflexive true}}}})
             (unify common
                    {:synsem {:sem {:pred :hurt
                                    :obj {:animate true}}}})])

