(let ((type z (array int)) (var y (new-array z 10 0)))
  (for (x 0 10) (begin (:= (aref y x) x) (break))))