fake emails file generator

core.clj

(ns e.core
  (:gen-class)
  (:use faker.internet))

(defn make-n-emails-file
  [filename n]
  (spit filename
        (apply str (interleave (take n (emails)) (repeat "\n")))))

(defn -main
  [filename n]
  (let [i (Integer/parseInt n)]
    (println (format "Generating %d emails into %s file" i filename))
    (make-n-emails-file filename i)))