let type x = {int,x} type y = array of x var x := new y[10] of new x{-1,nil} in for i := 0 to 8 do (x[i].0 := i; x[i].1 := x[i+1]); x[0].1.1.1.1.0 end