Local A:Int[] = [1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 0]

For Local B:Int = EachIn A
   Print B
Next

Type TTest
   
   Global TestList:TList
   
   Field name:String
   
   
   Function showAll()
      If Not TestList Then Return
      For Local a:TTest = EachIn TestList
         a.show()
      Next
   End Function
   
   Method New()
      If Not TestList Then TestList = New TList
      TestList.AddLast Self
   End Method
   
   Method Destroy()
      TestList.Remove Self
   End Method
      
   Method show()
      Print name
   End Method
   
   Method Create:TTest(text:String)
      name = text
   End Method
   
End Type

Local a:TTest = New TTest.Create("1")
a = New TTest.Create("2")
a = New TTest.Create("3")
a = New TTest.Create("4")
a = New TTest.Create("5")
a = New TTest.Create("6")
a = New TTest.Create("7")
a = New TTest.Create("8")
a = Null
TTest.showAll()