procedure main()
   local zzz, element
   zzz := list(3, "z"); write( "|zzz| =", *zzz)    # length = 3
   every element := !zzz do write( element )       # print elements of zzz
   zzz[1] := "fred"; zzz[2] := 123                 # changes types
   every write( !zzz )                             # print elements of zzz
end

#\fB Simple List Example. \fP