(let ((type ar (array int))
      (var a ar (new-array ar 1000 10))
      (var i 0)
      (var max 0)
      (var pos 0))
  (begin
    (:= (aref a 500) 20)
    (for
     (i 0 1000)
     (when (< max (aref a i)) (begin (:= max (aref a i)) (:= pos i))))))