still_not_idiomatic.cljs

(defn f [x]
  (vec (repeat (rand-int 5) [x])))

(defn g []
  (-> []
      (into ["begin"])
      (into (apply concat (for [i [\a \b \c]]
                               (f i))))
      (into ["end"])))
    
;; a little bit better
(defn g2 []
  (-> []
      (conj "begin")
      (into (reduce into (for [i [\a \b \c]]
                              (f i))))
      (conj "end")))

Yeah, I want to get a vector for hiccup out of that. Thanks for your input!