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

(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) first-suffixes)
            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."

(defn stem
  "Stem the given latin [word]."
  [word]
  (if-let [stem (handle-que word)]
    (let [first-suffix-stem (drop-first-suffixes stem)
          second-suffix-stem (drop-second-suffixes first-suffix-stem)]
      ({:noun (if (> (count first-suffix-stem) 1) first-suffix-stem word)
        :verb (if (> (count second-suffix-stem) 1) second-suffix-stem word)}))
    {:noun word
     :verb word}))
