TList *MakeList()
{
   TList *tlist  = new TList;
   tlist->Add(new TObjString("First string"));
   tlist->Add(new TObjString("Second string"));
   tlist->Add(new TObjString("Third string"));
   return tlist;
}

void test_list()
{
   TList *tlist;
   
   tlist = MakeList();
   
   TIter next(&tlist);
   while ((astring = (TObjString*)next())) {
      cout << astring->GetString() << endl;
   }
}