             
    "hurt" (let [common {:english {:past "hurt (past)"}
                         :synsem {:cat :verb}}]
-            [(let [subject-semantics (ref {:human true})
-                   subject-agr (ref :top)]
-               (merge common
-                      {:synsem {:sem {:pred :hurt-oneself
-                                      :subj subject-semantics
-                                      :obj subject-semantics}
-                                :subcat {:1 {:agr subject-agr
-                                             :sem subject-semantics}
-                                         :2 {:agr subject-agr
-                                             :pronoun true
-                                             :reflexive true
-                                             :sem subject-semantics}}}}))
-             (merge common
+            [(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}}}})])
 


   "form" {:synsem {:cat :verb
                    :sem {:pred :form}}}


   "furnish"  {:synsem {:cat :verb
                        :sem {:pred :furnish}}}

                         (if-then {:synsem {:cat :verb
                                            :subcat {:2 {:pronoun true
                                                         :reflexive true}}}}
                                  (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}})
                         
                         )))
                         

