    '(#"ero$" "eri")
    '(#"mur$")
    '(#"mus$")
-   '(#"ris$"
+   '(#"ris$")
    '(#"sti$")
    '(#"tis$")
    '(#"tur$")

(defn stem
  "Stem the given latin [word]."
  [word]
  ())

(defn- drop-second-suffixes
  "Drop a second array of popular suffixes in the given [stem] and apply a
   replacement in some cases."
  [stem]
  (if-let [rule (some #(re-test? % stem) second-suffixes)]
    (let [match (first rule)
          replacement (or (second rule) "")]
      (clojure.string/replace stem match replacement))
    stem))

(defn- prep-word
  "Prepare a [word] before its pass through the stemming algorithm."
