 (def small
   (future
     (let [grammar
-          (filter #(or (= (:rule %) "s-conditional-nonphrasal")
-                       (= (:rule %) "s-present-nonphrasal")
-                       (= (:rule %) "s-future-nonphrasal")
-                       (= (:rule %) "s-imperfetto-nonphrasal")
-                       (= (:rule %) "s-aux")
-                       (= (:rule %) "vp-aux"))
-                  grammar)
-          lexicon
-          (into {}
-                (for [[k v] @lexicon]
-                  (let [filtered-v
-                        (filter #(or (= (get-in % [:synsem :cat]) :verb)
-                                     (= (get-in % [:synsem :propernoun]) true)
-                                     (= (get-in % [:synsem :pronoun]) true))
-                                v)]
-                    (if (not (empty? filtered-v))
-                      [k filtered-v]))))]
-      {:name "small"
-       :language-keyword :italiano
-       :language "it"
-       :morph fo
-       :enrich enrich
-       :grammar grammar
-       :lexicon lexicon
-       :index (create-index grammar (flatten (vals lexicon)) head-principle)})))
-
           (filter #(or (= (:rule %) "s-conditional-phrasal")
                        (= (:rule %) "s-conditional-nonphrasal")
                        (= (:rule %) "s-present-phrasal")

                            (list lexeme)))
                        lexemes))
              (vals @lexicon)))))

                            (filter #(or (not (= :verb (get-in % [:synsem :cat])))
                                         (not (= :none (get-in % [:synsem :infl] :none))))
                                    vals))))))
(declare enrich)
(declare against-pred)
(declare against-comp)
