        (= (get-in word '(:agr :number)) :plur)
        (= (get-in word '(:cat)) :adjective)
        (re-find #"o$" (get-in word [:italiano])))
-      (string/replace (get-in word '(:italiano))
+      (string/replace (get-in word [:italiano])
                       #"[o]$" "e") ;; nero => nere
       (and
        (= (get-in word '(:agr :gender)) :fem)
        (= (get-in word '(:agr :number)) :plur)
        (= (get-in word '(:cat)) :adjective)
        (re-find #"e$" (get-in word [:italiano])))
-      (string/replace (get-in word '(:italiano))
+      (string/replace (get-in word [:italiano])
                       #"[e]$" "i") ;; difficile => difficili
      
       ;; handle lexical exceptions (plural nouns):

       (= (get-in word '(:agr :gender)) :fem)
       (= (get-in word '(:agr :number)) :sing)
       (= (get-in word '(:cat)) :adjective))
      (string/replace (get-in word '(:italiano))
                      #"[eo]$" "a") ;; nero => nera
     
      (and (= :infinitive (get-in word '(:infl)))
           (string? (get-in word '(:italiano))))
      (get-in word '(:italiano))

      (and
       (get-in word [:a])

       (= (get-in word '(:agr :gender)) :fem)
       (= (get-in word '(:agr :number)) :plur)
       (= (get-in word '(:cat)) :noun)
       (get-in word [:italiano])
       (re-find #"e$" (get-in word [:italiano])))
      (string/replace (get-in word [:italiano])
                      #"[e]$" "i") ;; madre => madri
      
      ;; regular feminine nouns not ending in 'e'
