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

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

                                      :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}}}
