                                 (throw (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)
+                 re-type (re-find #"re$" infinitive)
                  stem (string/replace infinitive #"[iae]r$" "")
+                 stem (if re-type
+                        (string/replace infinitive #"re$" "")
+                        stem)
                  last-stem-char-is-i (re-find #"ir$" infinitive)
                  last-stem-char-is-e (re-find #"er$" infinitive)
                  person (get-in word '(:agr :person))


              (and (= person :2nd) (= number :plur) ir-type)
              (str stem "issez")  
       
      
              ;; </second person plural present>


              (and (= person :3rd) (= number :plur)
                   ir-type)
              (str stem "issent")
              (and (= person :3rd) (= number :plur)
                   re-type)
              (let [stem (string/replace stem #"d$" "")]
                (str stem "nent"))
              
              ;; </third person plural present>
              
