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

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

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