       (get-in word '(:italiano))
 
       (and
-       (get-in word '(:a))
-       (get-in word '(:b)))
+       (get-in word [:a])
+       (get-in word [:b]))
       (str
-       (trim (get-string-1 (get-in word '(:a)))) " "
-       (trim (get-string-1 (get-in word '(:b)))))
+       (trim (get-string-1 (get-in word [:a]))) " "
+       (trim (get-string-1 (get-in word [:b]))))
      
      (and
       (string? (get-in word '(:italiano)))

      ;; that look in :a and :b. Either remove those following rules
      ;; if they are redundant and not needed, or move this general rule
      ;; below the following rules.
      (and (not (= :none (get-in word '(:a) :none)))
           (not (= :none (get-in word '(:b) :none))))
      (get-string (get-in word '(:a))
                  (get-in word '(:b)))

      (and
       (string? (get-in word '(:a :italiano)))

           " "
           (string/trim (get-in word '(:b :italiano))))
      (and
       (string? (get-in word [:a]))
       (string? (get-in word '(:b :italiano)))
       (or (= :none (get-in word '(:b :agr :number) :none))
           (= :top (get-in word '(:b :agr :number) :none)))
       )
      (str (string/trim (get-in word [:a]))
           " "
           (string/trim (get-in word '(:b :italiano))))
      (and
