      (and
       (= (get-in word '(:infl)) :future)
       (map? (get-in word '(:future))))
-     (let [infinitive (get-in word '(:italiano))
+     (let [infinitive (get-in word '(:italiano)) ;; future irregular
            ;; e.g.: lavarsi => lavare
            infinitive (if (re-find #"[aei]rsi$" infinitive)
                         (string/replace infinitive #"si$" "e")

     (and
      (= (get-in word '(:infl)) :present)
      (string? (get-in word '(:italiano))))
     (let [infinitive (if (get-in word [:infinitive])
                        (get-in word [:infinitive])
                        (get-in word [:italiano]))
           ;; e.g.: lavarsi => lavare

     ;; conjugate regular passato
     (and (= :past (get-in word '(:infl)))
          (string? (get-in word '(:italiano))))
     (let [infinitive (get-in word [:italiano]) ;; regular passato
           ;; e.g.: lavarsi => lavare
           infinitive (if (re-find #"[aei]rsi$" infinitive)
                        (string/replace infinitive #"si$" "e")
