(let ((type intarr (array int)) (var arr (new-array intarr 15 2)))
  (for (i 0 13) (:= (aref arr (+ i 1)) (* (aref arr (+ i 1)) (aref arr i)))))