(while (= foo (aref arr i)) (begin (:= i (+ i 1)) (when (> i 10) (break))))