(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))