         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)

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

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

        last-stem-char-is-e (re-find #"er$" infinitive)
        is-care-or-gare? (re-find #"[cg]ar$" infinitive)
        person (get-in word '(:agr :person))
        number (get-in word '(:agr :number))
        number-and-person (number-and-person number person)]
    (cond
     (get-in word [:present number-and-person])
     (get-in word [:present number-and-person])
     
     (and (= person :1st) (= number :sing))
     (str stem "o")
