          {:p (:p pattern)
           :comment (:comment pattern)
           :g (:g pattern)
-          :u (unifyc (:u pattern)
-                     (let [agr (atom :top)
-                           essere (atom :top)
-                           infl (atom :top)]
-                       {:synsem {:essere essere
-                                 :infl infl
-                                 :subcat {:1 {:agr agr}}}
-                        :essere essere
+          :u (unify (:u pattern)
+                    (let [agr (atom :top)
+                          essere (atom :top)
+                          infl (atom :top)]
+                      {:synsem {:essere essere
+                                :infl infl
+                                :subcat {:1 {:agr agr}}}
+                       :essere essere
                         :infl infl
-                        :agr agr}))})
+                       :agr agr}))})
        regular-patterns-source))
 
 (def irregular-patterns

    :u {:synsem {:subcat {:1 {:agr {:number :plur
                                    :person :3rd}}}
                 :infl :present}}}
   ])

(def present-nonreflexive-re-verb
  [
   {:p [#"^([^' ]+)$"          "$1re"]
    :g [#"^([^' ]+)re$"        "$1"]

    :u {:synsem {:infl :past-p
                 :subcat {:1 {:agr {:number :plur
                                    :gender :fem}}}}}}
   ]))

(def past-reflexive-re-verb
  (map
   #(merge %
           {:u (unify agr
                      (:u %))})
  [
   {:p [#"^([^' ]+)t$"       "se $1dre"]
    :g [#"^se ([^' ]+)dre$"  "$1t"]
