  "clean" {:synsem {:cat :verb
                    :sem {:pred :clean}}}
 
- "climb" {:synsem {:cat :verb}
+ "climb" {:synsem {:cat :verb
                    :subcat {:2 '()}
                    :sem {:pred :climb
                          :reflexive true}}}

 "coffee" {:synsem {:cat :noun
                    :sem {:pred :coffee}}}

 "comb" (let [common {:synsem {:cat :verb}}]
            ;; 1. reflexive sense of "comb"
          [(let [subject-semantics (atom :top)
                 subject-agr (atom :top)]
             {:unify [common]
              :synsem {:sem {:pred :comb-oneself
                             :reflexive true
                             :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}}}})])
 "come" {:synsem {:cat :verb
                  :sem {:pred :come}
                  :subcat {:2 '()}}

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

"shave" [;; 1. reflexive sense
        {:synsem {:cat :verb
                  :sem {:pred :shave
                        :reflexive true}}}
        ; ;2. non-reflexive sense
        {:synsem {:cat :verg
                  :sem {:pred :shave}}}]
 "she"
 {:synsem {:cat :noun
           :pronoun true
