    "warn" {:synsem {:cat :verb
                      :sem {:pred :warn}}}
    
-   "wash" (let [subject-semantics (ref :top)]
-            {:synsem {:cat :verb
-                      :sem {:pred :wash
-                            :reflexive true
-                            :subj subject-semantics
-                            :obj subject-semantics}
-                      :subcat {:1 {:sem subject-semantics}
-                               :2 {:pronoun true
-                                   :reflexive true
-                                   :sem subject-semantics}}}})
+   "wash" {:synsem {:cat :verb
+                    :sem {:pred :wash
+                          :subj {:human true}
+                          :reflexive true}
+                    :subcat {:2 {:pronoun true
+                                 :reflexive true}}}}
    "waste" {:synsem {:cat :verb
                 :sem {:pred :waste}}}
 

            
   "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
                    {:synsem {:sem {:pred :hurt
                                    :obj {:animate true}}}})])



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

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