       (= (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))

     (string/replace (get-in word '(:italiano))
                     #"[eo]$" "e") ;; nero => nere

     (and
      (string? (get-in word [:italiano]))
      (= (get-in word '(:agr :gender)) :fem)

                             (fn [val]
                               {:italiano {:agr {:gender :fem
                                                 :number :plur}}})}
                            {:path [:italiano :fem :sing]
                             :merge-fn
                             (fn [val]
                               {:italiano {:agr {:gender :fem
                                                 :number :sing}}})}
                            ;; nouns
                            {:path [:italiano :plur]
                             :merge-fn
