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