       (-> (clojure.java.io/resource "babel/italiano/morphology/verbs/passato.edn")
           slurp
           read-string
-          patterns-with-agr)]
+          patterns-with-agr
+          patterns-with-essere)]
   (defonce patterns-passato
     (compile-patterns
      {:synsem {:infl :past}}

           (merge pattern
                  {:agr agr ;; {:agr agr}
                   })))
       patterns))

;; <conditional>


(defn regular-passato [word]
  (let [unifying-patterns
        (remove nil? (mapcat #(when (not (= :fail
                                            (unify word
                                                   {:agr (:agr %)
                                                    :essere (:essere %)})))
                                (:g %))
                             patterns-passato))
        infinitive (get-in word [:italiano])]
