(let ((var i 0)
      (var x 1)
      (var y 2)
      (var z 3)
      (type arr (array int))
      (var a (new-array arr 10 0)))
  (while
   (< i 10)
   (begin (:= x (+ x 1)) (:= y (+ y 1)) (:= z (+ z 1)) (:= i (+ i 1)))))