         ir-type (re-find #"ir$" infinitive)
 
         zar-type (re-find #"zar$" infinitive)
-        
+
         ;; default stem: will be used except under certain conditions, as described in next check.
         stem (string/replace infinitive #"[iae]r$" "")
-        
+
         stem (if (get-in word [:preterito-stem])
                (get-in word [:preterito-stem])
                stem)

     (get-in word [:futuro number-and-person])

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

     (and (= person :2nd) (= number :sing) ar-type)
     (str stem "aras")
     (and (= person :2nd) (= number :sing) ir-type)
     (str stem "iras")
     (and (= person :2nd) (= number :sing) er-type)
     (str stem "eras")
     
     (and (= person :2nd) (= number :sing) ar-type (= usted true))
     (str stem "ará")
     (and (= person :2nd) (= number :sing) ir-type (= usted true))
     (str stem "irá")
     (and (= person :2nd) (= number :sing) er-type (= usted true))
     (str stem "erá")

     (and (= person :3rd) (= number :sing) ar-type)
     (str stem "ará")
     (and (= person :3rd) (= number :sing) ir-type)
     (str stem "irá")
     (and (= person :3rd) (= number :sing) er-type)
     (str stem "erá")

     (and (= person :1st) (= number :plur) ar-type)
     (str stem "aremos")

     (and (= person :1st) (= number :plur) er-type)
     (str stem "eremos")

     (and (= person :1st) (= number :plur) ir-type)
     (str stem "iremos")

     ;; <second person plural future>

     (and (= person :2nd) (= number :plur) ar-type vosotros)
     (str stem "arais")

     (and (= person :2nd) (= number :plur) er-type vosotros)
     (str stem "erais")

     (and (= person :2nd) (= number :plur) ir-type vosotros)
     (str stem "irais")

     (and (= person :2nd) (= number :plur) ar-type ustedes)
     (str stem "aran")

     (and (= person :2nd) (= number :plur) er-type ustedes)
     (str stem "eran")
     
     (and (= person :2nd) (= number :plur) ir-type ustedes)
     (str stem "iran")

     ;; </second person plural future>

     ;; <third person plural future>
     (and (= person :3rd) (= number :plur)
          ar-type)
     (str stem "aran")

     (and (= person :3rd) (= number :plur)
          er-type)
     (str stem "eran")

     (and (= person :3rd) (= number :plur)
          ir-type)
     (str stem "iran")
     
     ;; </third person plural future>

     ;; agreement is underspecified, but an infinitive form (the :espanol key) exists, so just return that infinitive form.
     (and (= (get-in word [:agr]) :top)
          (string? (get-in word [:espanol])))
     (get-in word [:espanol])
     
     :else
     (let [message (str "get-string-1: future regular inflection: don't know what to do with input argument: " (strip-refs word))]
       (if (= suppress-morph-exceptions true)

     (get-in word [:condicional number-and-person])

     (and (= person :1st) (= number :sing) ar-type)
     (str stem "ía")
     (and (= person :1st) (= number :sing) er-type)
     (str stem "ía")
     (and (= person :1st) (= number :sing) ir-type)
     (str stem "ía")

     (and (= person :2nd) (= number :sing) ar-type)
     (str stem "ías")
     (and (= person :2nd) (= number :sing) er-type)
     (str stem "ías")
     (and (= person :2nd) (= number :sing) ir-type)
     (str stem "ías")

     (and (= person :2nd) (= number :sing) ar-type (= usted true))
     (str stem "ía")
     (and (= person :2nd) (= number :sing) er-type (= usted true))
     (str stem "ía")
     (and (= person :2nd) (= number :sing) ir-type (= usted true))
     (str stem "ía")

     (and (= person :3rd) (= number :sing) ar-type)
     (str stem "ía")
     (and (= person :3rd) (= number :sing) er-type)
     (str stem "ía")
     (and (= person :3rd) (= number :sing) ir-type)
     (str stem "ía")

     (and (= person :1st) (= number :plur) ar-type)
     (str stem "íamos")

     (and (= person :1st) (= number :plur) er-type)
     (str stem "íamos")

     (and (= person :1st) (= number :plur) ir-type)
     (str stem "íamos")

     ;; <second person plural conditional>

     (and (= person :2nd) (= number :plur) ar-type vosotros)
     (str stem "íais")

     (and (= person :2nd) (= number :plur) er-type vosotros)
     (str stem "íais")

     (and (= person :2nd) (= number :plur) ir-type vosotros)
     (str stem "íais")

     (and (= person :2nd) (= number :plur) ar-type ustedes)
     (str stem "ían")

     (and (= person :2nd) (= number :plur) er-type ustedes)
     (str stem "ían")

     (and (= person :2nd) (= number :plur) ir-type ustedes)
     (str stem "ían")

     ;; </second person plural conditional>

     ;; <third person plural conditional>
     (and (= person :3rd) (= number :plur)
          ar-type)
     (str stem "ían")

     (and (= person :3rd) (= number :plur)
          er-type)
     (str stem "ían")

     (and (= person :3rd) (= number :plur)
          ir-type)
     (str stem "ían")

     ;; </third person plural conditional>

