Clojureでmapcatのfor版としてforcatを作る（＋おまけpapply） ref: http://qiita.com/kurogelee/items/c992d8fe15a21bdb5793

file1.txt

user=> (forcat [x (range 3) y [:a :b]] [x] [y])
(0 :a 0 :b 1 :a 1 :b 2 :a 2 :b)

forcat.clj

(defmacro forcat [seq-exprs & body-exprs]
  `(apply concat (for ~seq-exprs (concat ~@body-exprs))))

papply.clj

(defn papply [f & args] (apply partial apply f args))