    ;; future
    #"ò$" 
    {:replace-with "e"
-    :unify-with {:italiano {:infl :futuro
+    :unify-with {:italiano {:infl :future
                             :agr {:number :sing
                                   :person :1st}}}}
    #"ai$" 
    {:replace-with "e"
-    :unify-with {:italiano {:infl :futuro
+    :unify-with {:italiano {:infl :future
                             :agr {:number :sing
                                   :person :2nd}}}}
    #"à$" 
    {:replace-with "e"
-    :unify-with {:italiano {:infl :futuro
+    :unify-with {:italiano {:infl :future
                             :agr {:number :sing
                                   :person :3rd}}}}
    #"emo$" 
    {:replace-with "e"
-    :unify-with {:italiano {:infl :futuro
+    :unify-with {:italiano {:infl :future
                             :agr {:number :plur
                                   :person :1st}}}}
    #"ete$" 
    {:replace-with "e"
-    :unify-with {:italiano {:infl :futuro
+    :unify-with {:italiano {:infl :future
                             :agr {:number :plur
                                   :person :2nd}}}}
    #"anno$" 
    {:replace-with "e"
-    :unify-with {:italiano {:infl :futuro
+    :unify-with {:italiano {:infl :future
                             :agr {:number :plur
                                   :person :3rd}}}}})
 

           person (get-in word '(:agr :person))
           number (get-in word '(:agr :number))
           drop-e (get-in word '(:italiano :drop-e) false)
           stem (stem-per-futuro infinitive drop-e)]

       (cond
        (and (= person :1st) (= number :sing))


     ;; regular inflection of conditional
     (and (= (get-in word '(:infl)) :conditional)
          (string? (get-in word '(:future-stem) :none)))
     (let [stem (get-in word '(:future-stem))
           person (get-in word '(:agr :person))
           number (get-in word '(:agr :number))
           drop-e (get-in word '(:italiano :drop-e) false)]
