    "wake up"
    (let [subject-semantics (atom :top)]
      {:synsem {:cat :verb
-               :sem {:pred :wake-up}}
+               :sem {:pred :wake-up}
+               :subcat {:2 '()}}
       :english {:participle "waking up"
                 :present {:3sing "wakes up"}
                 :past "woke up"}})

                         :present {:3sing "sits down"}}
               :synsem {:cat :verb
                        :sem {:pred :sit-down
                              :reflexive true}}}

   "sleep" {:synsem {:cat :verb
                     :sem {:pred :sleep}}
            :english {:past "slept"}}
   "small"
   (unify adjective

                          (let [subject-agr (atom :top)]
                            {:synsem {:subcat {:1 {:agr subject-agr}
                                               :2 {:agr subject-agr}}}}))))
