Как реализовать в Clojure распаковку как в Haskell?

Довольно уродливое решение, которое я придумал для двух разархивированных последовательностей:

(defn- reducer-fn [{:keys [firsts seconds]} [f s]]
  {:firsts (conj firsts f)
   :seconds (conj seconds s) })

(defn- split2 [{:keys [firsts seconds]}]
  [[firsts seconds]])

(defn unzip2 [input]
  (->> input
       (reduce reducer-fn {:firsts [] :seconds []})
       split2))

Макрос for весьма полезен для таких вещей:

(defn unzip [input]
  (for [iter (iterate (partial map rest) input)
        :while (every? seq iter)]
    (map first iter)))