          (throw (Exception. message)))))))
 
 (defn present [word]
-  (let [infinitive (get-in word '(:français))
+  (let [infinitive (reflexive-to-infinitive (get-in word [:français]))
         ar-type (try (re-find #"ar$" infinitive)
                      (catch Exception e
                        (throw (Exception. (str "Can't regex-find on non-string: " infinitive " from word: " word)))))

         (throw (Exception. message)))))))

(defn future [word]
  (let [infinitive (get-in word '(:français))
        ar-type (try (re-find #"ar$" infinitive)
                     (catch Exception e
                       (throw (Exception. (str "Can't regex-find on non-string: " infinitive " from word: " 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))))))

(defn passe-compose [word]
  (let [infinitive (reflexive-to-infinitive (get-in word '(:français)))]
    (if-let [irregular (get-in word [:past-participle])]
      irregular

