          #"(.*)rà"      "$1ere" ;; potrà -> potere
          #"(.*)rrà"     "$1lere"  ;; vorrà -> volere
          #"(.*)rrà"     "$1nere" ;; rimarrà -> rimanere
-         ]}
+         ]
+
+     :g [#"^(.*)[ae]re$" "$1erà" ;; parlare,ricevere
+         #"^(.*)ire$"    "$1irà" ;; dormire
+         ]
+     }
 
     {:agr {:synsem {:subcat {:1 {:agr {:number :plur
                                        :person :1st}}}}}

         #"(.*)vrai"     "$1vere"
         #"(.*)rrai"     "$1lere"  ;; vorrai -> volere
         #"(.*)rrai"     "$1nere"  ;; rimarrai -> rimanere
         ]}

    {:agr {:synsem {:subcat {:1 {:agr {:number :sing
                                       :person :3rd}}}}}

        (do-replace-on infinitive (rest (rest patterns)))))))

(defn expand-replace-patterns-2 [tense-spec patterns]
  (map (fn [{g :g agr :agr p :p}]
         {:u {:agr (unify (get-in agr [:synsem :subcat :1 :agr])
                          (get-in tense-spec [:synsem]))}
          :p p
          :g g})
       patterns))

