(defn iterate-while
  ([f x] (iterate-while some? f x))
  ([pred f x]
   (when (pred x)
     (reify
       ISeq
       (first [_] x)
       (next [_] (iterate-while pred f (f x)))
       (more [this] (or (next this) '()))
       Seqable
       (seq [this] this)
       IReduceInit
       (reduce [_ rf ret]
         (loop [ret ret, x x]
           (cond (reduced? ret) (.deref ^Reduced ret)
                 (pred x),,,,,, (recur (rf ret x) (f x))
                 :else,,,,,,,,, ret)))
       Sequential))))

(defn div3 [x n]
  (reduce (fn [state _] (update state (rand-int n) inc))
          (vec (repeat n 0))
          (range x)))

(defn div3 [x n]
  (reduce (fn [state _] (update state (rand-int n) inc))
          (vec (repeat n 0))
          (range x)))

(defn div3 [x n]
  (reduce (fn [state _] (update state (rand-int n) inc))
          (vec (repeat n 0))
          (range x)))