Idiomatic text munging in Clojure
You may use mapcat to omit flatten:

user&gt; (defn doublelist [coll]
        (mapcat #(repeat 2 %) coll))
#'user/doublelist
user&gt; (doublelist [:a :b :c :d])
(:a :a :b :b :c :c :d :d)