                       :subcat {:1 {:cat :noun}
                                :2 {:cat :comp
                                    :comp-type :if
-
+                                   :subcat '()}}}}
    "work" [{:synsem {:cat :verb
                      :sem {:pred :work-human}}
             :english {:note "human"}}

                   :sem {:obj obj-sem}}}))

      ;; </prep default rules>

))

(def lexicon-promise (promise))

                                      :pronoun true
                                      :reflexive true
                                      :sem subject-semantics}}}})])
   "come" {:synsem {:cat :verb
                    :sem {:pred :come}
                    :subcat {:2 '()}}
           :english {:past "came"
                     :past-participle "come"}}

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