(defn disemvowel [s]
  (as-> s res
    (filter (complement #{\ }) res)
    (group-by #(if (#{\a \e \i \o \u} %) :vowel :consonant) res)
    [(:consonant res) (:vowel res)]
    (map #(clojure.string/join "" %) res)))
(-> "all those who believe in psychokinesis raise my hand" disemvowel  println)