     :english {:past "hugged"
               :participle "hugging"}}
             
-   "hurt" (let [common {:english {:past "hurt (past)"}
+   "hurt" (let [common {:english {:past "hurt"}
                         :synsem {:cat :verb}}]
-            [(unify common
-                    {:synsem {:sem {:pred :hurt-oneself}
-                              :subcat {:1 {:sem {:human true}}
-                                       :2 {:pronoun true
-                                           :reflexive true}}}})
-             (unify common
+            [(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
                     {:synsem {:sem {:pred :hurt
                                     :obj {:animate true}}}})])
 

                         ;; then the object is {:reflexive false}
                         (if-then {:synsem {:cat :verb
                                            :subcat {:2 {:reflexive false}}}}
                                  {:synsem {:subcat {:2 {:reflexive false}}}})

                         (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}})
                         
                         )))
                         


                     :sem {:pred :break }}
            :english {:past "broke"}}

   "bring" {:synsem {:cat :verb
                   :sem {:pred :bring
                         :subj {:human true}
                         :obj {:buyable true}}}
          :english {:past "brought"}}
   
   "buy" {:synsem {:cat :verb
                   :sem {:pred :comprare
                         :subj {:human true}
