(let ((type ar (array int)) (var table (new-array ar (* 100 100) 0)))
  (for
   (i 0 100)
   (for (j 0 100) (when (= i j) (:= (aref table (+ (* i 100) j)) 1)))))