            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)]
+           stem (stem-per-future infinitive drop-e)]
        (cond
         (and (= person :1st) (= number :sing))
         (str stem "ò")

                        infinitive)
           person (get-in word '(:agr :person))
           number (get-in word '(:agr :number))
           stem (stem-per-imperfetto infinitive)]
       (cond
        (and (= person :1st) (= number :sing))
        (str stem "vo")


(declare get-string)

(defn stem-per-futueo [infinitive drop-e]
  "turn an infinitive form into a stem that can be conjugated in the future tense."

  ;; e.g.: lavarsi => lavare
