(defn myInc [a]
  (if (= a nil) 1 (inc a)))

(defn myReduce [v i a]
  (into [] (concat (subvec v 0 (- i a)) (subvec v (inc i) (count v))))
)

(defn myF [v crit]
  (loop [i 0 a nil crit crit v v]
    (if (< i (count v))
      (if (not= (inc i) (count v))
        (if (not= (v i) (v (inc i)))
          (if (= a nil)
            (recur (inc i) nil crit v)
            (if (< crit (inc a))
              (recur (- i a) nil crit (myReduce v i a))
              (recur (inc i) nil crit v)
            )
          )
          (recur (inc i) (myInc a) crit v)
        )
        (if (= a nil)
          (recur (inc i) nil crit v)
          (if (< crit (inc a))
            (recur (- i a) nil crit (myReduce v i a))
            (recur (inc i) nil crit v)
          )
        )
      ) v
    )
  )
)

(println (myF [2 2 1 1 1 5 7 7 7 1 1] 2))