 (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

        number (get-in word '(:agr :number))]

    (cond
     (and (= person :1st) (= number :sing) ar-type)
     (str stem "aré")
     (and (= person :1st) (= number :sing) er-type)

        vosotros (if vosotros vosotros true)
        ustedes (if ustedes ustedes false)
        person (get-in word '(:agr :person))
        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)
