 
 ;; TODO: this is an overly huge method that needs to be rewritten to be easier to understand and maintain.
 (defn get-string-1 [word]
-  (let [person (get-in word '(:agr :person))
-        number (get-in word '(:agr :number))]
+  (let [person (get-in word [:agr :person])
+        number (get-in word [:agr :number])]
     (cond
       (and (string? (get-in word [:a]))
            (string? (get-in word [:b])))

       (= (get-in word '(:agr :gender)) :fem)
       (= (get-in word '(:agr :number)) :plur)
       (= (get-in word '(:cat)) :adjective))
      (string/replace (get-in word '(:italiano))
                      #"[eo]$" "e") ;; nero => nere

      ;; TODO: move this down to other adjectives.

      (string? (get-in word '(:fem :plur))))
     (get-in word '(:fem :plur))
     
     (string? (get-in word [:italiano]))
     (get-in word [:italiano])

     (or
      (not (= :none (get-in word [:a] :none)))
