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