      (get-string
       (get-in word '(:a))
       (get-in word '(:b)))
+
+     (= :verb (get-in word [:cat]))
+     (verbs/conjugate word)
 
      ;; TODO: this rule is pre-empting all of the following rules
      ;; that look in :a and :b. Either remove those following rules

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


     (= :verb (get-in word [:cat]))
     (verbs/conjugate word)

     (and
      (get-in word '(:a))
      (get-in word '(:b)))

;; TODO: use replace patterns instead (as with French)
;; TODO: split into morphology/verb function, morphology/noun function, etc.
(defn get-string-1 [word]
  (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))))
