       (-> (clojure.java.io/resource "babel/italiano/morphology/verbs/present.edn")
           slurp
           read-string)]
-  (defonce regular-present-generate-patterns
-    (compile-patterns
-     {:synsem {:infl :present}}
-     regular-present-source))
-  
-  (defonce patterns-present-tense
+  (defonce patterns-present
     (compile-patterns
      {:synsem {:infl :present}}
      regular-present-source)))

  (let [unifying-patterns
        (remove nil? (mapcat #(if (not (= :fail (unify (:u %) word)))
                                (:g %))
                             regular-imperfect-generate-patterns))
        infinitive (get-in word [:italiano])]
    (first (remove nil? (do-replace-on infinitive unifying-patterns)))))
;; </imperfect>

      (-> (clojure.java.io/resource "babel/italiano/morphology/verbs/future.edn")
          slurp
          read-string)]
  (defonce patterns-future
    (compile-patterns
     {:synsem {:infl :future}}
     regular-future-source)))
