    (and (string? (get-in word [:english]))
         (= :fem (get-in word [:gender]))
         (= true (get-in word [:pronoun]))
-        (= "it" from-language)
+        (some #(= from-language %) ["fr" "it"])
         (= false (unify false (get-in word [:agr :gendered] false))))
    (trim (str (get-in word [:english]) " (♀)"))
    

   (and (= :english (get-in word '(:infl)))
        (string? (get-in word '(:english))))
   (get-in word '(:english))

   (= true (get-in word '(:hidden)))
   ;;   "Ø"
   ""

    (= (get-in word '(:cat) :noun))
    (string? (get-in word '(:root))))
   (get-in word '(:root))
   
   (and
    (= (get-in word '(:agr :number)) :sing)
    (= (get-in word '(:cat) :noun))
