scratch.clj

(def *vowels* (vec "aeiou"))
(def *consonants* (vec "qwrtpsdgfhjklzxcvbnm"))

(defn seq-of-random 
  "produces a seq of elements from v at random"
  [v]
  (repeatedly #(nth v (rand-int (count v)))))

(defn drop-randomly
  "drop elements from sequence at random"
  [seq]
  (filter (fn [_] (zero? (rand-int 2))) seq))

(defn random-chars []
  "produces an infinite sequence of random characters"
  (drop-randomly
   (interleave (seq-of-random *vowels*)
               (seq-of-random *consonants*))))

(defn words [n]
  "produces an infinite sequence of random 'words' of length n"
  (map (partial apply str) (partition n (random-chars))))