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

                          {:synsem {:sem {:obj {:pred :top}}}})
                 

                 (default ;; intransitive verbs' :obj is :unspec.
                  {:synsem {:cat :verb
                            :subcat {:1 {:top :top}
                                     :2 '()}
                            :sem {:obj :unspec}}})

                 ;; make an intransitive version of every verb which has an
                 ;; [:sem :obj] path.

  (:require
   [babel.encyclopedia :as encyc]
   [babel.lexiconfn :refer [compile-lex default
                            if-then new-entries
                            map-function-on-map-vals unify
                            verb-pred-defaults]]
   [babel.english.morphology :as morph]
