               :sem {:human true
                     :pred :voi}
               :subcat '()}}]
-   })
-
-
-(declare lexicon)
-
-;; TODO: allow a filter of lexemes
+  })
+
 (defn- deliver-lexicon []
   (-> (compile-lex lexicon-source
                    morph/exception-generator

                      :subcat {:1 {:cat :noun}
                               :2 {:cat :comp
                                   :comp-type :if

   "work" [{:synsem {:cat :verb
                     :sem {:pred :work-human}}
            :english {:note "human"}}

                                            :1plur "were able"
                                            :2plur "were able"
                                            :3plur "were able"}
                                            :past-participle "been able"}}]
               [(unify common
                       {:modal-with :infinitive
                        :synsem {:cat :verb
