names.clj

(defn gen-name [k l]
  (loop [n #(mod (* 399 %) 509)
         r (nth "BDGKPNTVZ" (mod (n k) 9))
         k k
         i 0]
      (if (< i l)
        (recur n
               (str r (-> ["aeiouaeio" "bdgknptvwz"] (nth (bit-and i 1)) (nth (mod (n k) 9))))
               (n k)
               (inc i))
        r)))