         ;; if more are added in the future, please
         ;; preserve alphabetical ordering.
         patterns-conditional-tense
-        patterns-future-tense
+        patterns-future
         patterns-gerund
-        patterns-imperfect-past-tense
+        patterns-imperfect
         patterns-past-tense
         patterns-present-subjunctive
         patterns-present-tense)))

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

  (let [stem (get-in word '(:future-stem))
        number (get-in word [:agr :number])
        person (get-in word [:agr :person])
        patterns patterns-future]
    (-> patterns
        (map (fn [pattern]
               (let [[from to] (nth (:g pattern))]
