               (get-in word [:français])
               
               :else
-              (throw (Exception. (str "get-string: present regular inflection: don't know what to do with input argument: " (strip-refs word))))))
-           
+              (throw (Exception. (str "get-string: present regular inflection: don't know what to do with input argument: " (strip-refs word) " (er-type: " er-type "; ir-type: " ir-type "; re-type: " re-type)))))           
            (and
             (= (get-in word '(:infl)) :futuro)
             (string? (get-in word '(:français))))

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

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


                                (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))
