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


 ;; TODO: move all "get Xs" to "get" with a subcat argument, a la phrasal verbs e.g. "putting on"
 "get angry"
 (let [subject-semantics (atom :top)]
   {:synsem {:cat :verb
             :sem {:pred :get-angry
                   :reflexive true
                   :subj subject-semantics
                   :obj subject-semantics}
             :subcat {:1 {:sem subject-semantics}
                      :2 '()}}
    :english {:participle "getting angry"
              :present {:3sing "gets angry"}
              :past "got angry"}})
 "get bored"
 (let [subject-semantics (atom :top)]
   {:synsem {:cat :verb
             :sem {:pred :get-bored
                   :subj subject-semantics
                   :obj subject-semantics}
             :subcat {:1 {:sem subject-semantics}
                      :2 '()}}
    :english {:participle "getting bored"
              :present {:3sing "gets bored"}
              :past "got bored"}})

 "get dressed"
 (let [subject-semantics (atom :top)]
   {:synsem {:cat :verb
             :sem {:pred :get-dressed
                   :reflexive true
                   :subj subject-semantics
                   :obj subject-semantics}
             :subcat {:1 {:sem subject-semantics}
                      :2 '()}}
    :english {:participle "getting dressed"
              :present {:3sing "gets dressed"}
              :past "got dressed"}})


 "get married"
 (let [subject-semantics (atom :top)]
   {:synsem {:cat :verb
             :sem {:pred :get-married
                   :reflexive true
                   :subj subject-semantics
                   :obj subject-semantics}
             :subcat {:1 {:sem subject-semantics}
                      :2 '()}}
    :english {:participle "getting married"
              :present {:3sing "gets married"}
              :past "got married"}})

 "get off"
 (let [subject-semantics (atom :top)]
   {:synsem {:cat :verb
             :sem {:pred :get-off
                   :subj subject-semantics}
             :subcat {:1 {:sem subject-semantics}
                      :2 '()}}
    :english {:participle "getting off"
              :present {:3sing "gets off"}
              :past "got off"}})
 "get on"
 (let [subject-semantics (atom :top)]
   {:synsem {:cat :verb
             :sem {:pred :get-on
                   :subj subject-semantics}
             :subcat {:1 {:sem subject-semantics}
                      :2 '()}}
    :english {:participle "getting on"
              :present {:3sing "gets on"}
              :past "got on"}})
 "get ready"
 (let [subject-semantics (atom :top)]
   {:synsem {:cat :verb
             :sem {:pred :get-ready
                   :reflexive true
                   :subj subject-semantics
                   :obj subject-semantics}
             :subcat {:1 {:sem subject-semantics}
                      :2 '()}}
    :english {:participle "getting ready"
              :present {:3sing "gets ready"}
              :past "got ready"}})
 "get up"
 (let [subject-semantics (atom :top)]
   {:synsem {:cat :verb
             :sem {:pred :get-up
                   :reflexive true
                   :subj subject-semantics
                   :obj subject-semantics}
             :subcat {:1 {:sem subject-semantics}
                      :2 '()}}
    :english {:participle "getting up"
              :present {:3sing "gets up"}
              :past "got up"}})

  "get used"
  (let [subject-semantics (atom :top)]
    {:synsem {:cat :verb
              :sem {:pred :get-used
                    :reflexive true
                    :subj subject-semantics
                    :obj subject-semantics}
              :subcat {:1 {:sem subject-semantics}
                        :2 '()}}
      :english {:participle "getting used"
                :present {:3sing "gets used"}
                :past "got used"}})

 "Gianluca"
 {:synsem {:agr {:number :sing

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

"comb" [;; 1. reflexive sense
        {:synsem {:cat :verb
                  :sem {:pred :comb-oneself
                        :reflexive true}}}
        ; ;2. non-reflexive sense
        {:synsem {:cat :verb
                  :sem {:pred :comb}}}]

 "come" {:synsem {:cat :verb
                  :sem {:pred :come}
                  :subcat {:2 '()}}
