(let ((type person (record string int))
      (type pArr (array person))
      (var len int 42)
      (var people (new-array pArr len (new person "" 0)))
      (var sum 0))
  (begin (for (i 0 (- len 1)) (:= sum (+ sum (dot (aref people i) 1)))) sum))