         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)


     (and (= person :1st) (= number :plur) ir-type)
     (str stem "imos")
       
     ;; <second person plural present>

     (and (= person :2nd) (= number :plur) ar-type vosotros)

                       (exception (str "Can't regex-find on non-string: " infinitive " from word: " word))))
        er-type (re-find #"er$" infinitive)
        ir-type (re-find #"ir$" infinitive)

        stem (cond (and (get-in word [:boot-stem])
                        (or (= (get-in word [:agr :number])
                               :sing)
