      :language "en"
      :morph fo
      :grammar grammar
+     :lookup (fn [arg]
+               (analyze arg lexicon))
 
      ;; Will throw exception if more than 1 rule has the same :rule value:
      :grammar-map (zipmap

                        (do
                          (merge tree
                                 (morph-walk-tree tree))))
     :grammar grammar
     :morph fo
     :lexicon lexicon

                          (merge tree
                                 (morph-walk-tree tree))))
     :language "en"
     :lookup (fn [arg]
               (analyze arg lexicon))
     :morph fo
     :grammar grammar
     :lexicon lexicon
