                  rword))
     )
   )
+
+(defn split-word
+  [word]
+  (fuzzy-split-word word))

;;; this namespace have to be a valid vietnamese word or be able to
;;; develop to a valid vietnamese word.

(defn split-word
  "Split a word into 3 components: first-consonant, vowel,
last-consonant * last-consonant: the longest substring of consonants
at the end of given word * vowel: the longest substring of vowel next

Return value is a vector with the form:
[first-consonant vowel last-consonant]

Usage: (fuzzy-split-word word)"
  [word]
  (let [rword (reverse word)]
    (map string/reverse
