let type person = { string, int } type pArr = array of person var len:int := 42 var people := new pArr[len] of new person { "", 0 } var sum := 0 in (for i := 0 to (len - 1) do sum := sum + people[i].1); sum end