(fn [seq n]
    (loop [acc (vec (repeat n nil)) i 0 tail seq]
        (let [i' (mod i n)]
            (cond (empty? tail) (apply list acc)
                  :else         (recur (assoc acc i' (concat (nth acc i') (list (first tail)))) (+ i 1) (rest tail))))))