                          (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}}}})))))
-
+                                  (let [subject-agr (ref :top)
+                                        subject-semantics (ref :top)]
+                                    {:synsem {:subcat {:1 {:sem subject-semantics
+                                                           :agr subject-agr}
+                                                       :2 {:sem subject-semantics
+                                                           :cat :noun
+                                                           :case :acc
+                                                           :agr subject-agr}}}}))
+
+                         (if-then {:synsem {:cat :noun
+                                            :pronoun true
+                                            :reflexive false}}
+                                  {:synsem {:cat :noun
+                                            :pronoun true
+                                            :reflexive false}})
+                         
+                         )))
+                         
+

                           :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}}}})
   "preserve" {:synsem {:cat :verb
                        :sem {:pred :preserve}}}


            
   "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}}}})])

