     #"ity$" :A         #"ium$" :A         #"ive$" :A         #"ize$" :F
     #"oid$" :A         #"one$" :R         #"ous$" :A
 
-    #"ae$" :A          #"al$" :BB          #"ar$" :X          #"as$" :B
+    #"ae$" :A          #"al$" :BB         #"ar$" :X          #"as$" :B
     #"ed$" :E          #"en$" :F          #"es$" :E          #"ia$" :A
     #"ic$" :A          #"is$" :A          #"ly$" :B          #"on$" :S
     #"or$" :T          #"um$" :U          #"us$" :V          #"yl$" :R
-    #"s'" :A           $"'s$" :A
+    #"s'"  :A          #"'s$" :A
 
     #"a$" :A           #"e$" :A           #"i$" :A           #"o$" :A
     #"s$" :W           #"y$" :B))

  [word]
  (-> (clojure.string/lower-case word)
      (clean)))

   :C (fn [stem] (> (count stem) 3))
   :D (fn [stem] (> (count stem) 4))
   :E (fn [stem] (not (re-test? #"e$" stem)))
   :F (fn [stem] (and ((conditions :B) stem) (conditions :E stem)))
   :G (fn [stem] (and ((conditions :B) stem) (re-test? #"f$" stem)))
   :H (fn [stem] (re-test? #"(t|ll)$" stem))
   :I (fn [stem] (not (re-test? #"[oe]$" stem)))
   :J (fn [stem] (not (re-test? #"[ae]$" stem)))
   :K (fn [stem] (and ((conditions :B) stem) (re-test? #"(l|i|(u\we))$" stem)))
   :L (fn [stem] (not (re-test? #"(u|x|([^o]s))$" stem)))
   :M (fn [stem] (not (re-test? #"[acem]$" stem)))
   :N (fn [stem] (if (re-test? #"s\w{2}$" stem) ((conditions :C) stem) ((conditions :B) stem)))
   :O (fn [stem] (re-test? #"[li]$" stem))
   :P (fn [stem] (not (re-test? #"c$" stem)))
   :Q (fn [stem] (and ((conditions :B) stem) (not (re-test? #"[ln]$" stem))))
   :R (fn [stem] (re-test? #"[nr]$" stem))
   :S (fn [stem] (re-test? #"(dr|[^t]t)$" stem))
   :T (fn [stem] (re-test? #"(s|[^o]t)$" stem))
