(let ((var i 0)
      (var j 0)
      (var tmp 0)
      (type arrint (array int))
      (var a arrint (new-array arrint 10 10)))
  (for
   (i 0 9)
   (for
    (j (+ i 1) 9)
    (when (< (aref a i) (aref a j))
      (begin
        (:= tmp (aref a i))
        (:= (aref a i) (aref a j))
        (:= (aref a j) tmp))))))