         vosotros (if vosotros vosotros true)
         ustedes (if ustedes ustedes false)
         person (get-in word '(:agr :person))
-        number (get-in word '(:agr :number))]
-
+        number (get-in word '(:agr :number))
+        number-and-person (number-and-person number person)]
     (cond
+     (get-in word [:condicional number-and-person])
+     (get-in word [:condicional number-and-person])
+
      (and (= person :1st) (= number :sing) ar-type)
      (str stem "aría")
      (and (= person :1st) (= number :sing) er-type)

             "??")
         (exception message))))))


(defn reflexive-to-infinitive [reflexive-infinitive]
  "e.g.: quedarse -> quedar"
  (string/replace reflexive-infinitive #"se$" ""))

(declare number-and-person)

(defn conditional [word  & [ {usted :usted
                              vosotros :vosotros
