{
  gSystem->Load("EventSTL");
  TFile myfile("STL.root","RECREATE","TTree Dynamic ROOT file");
  
  EventSTL *CC = new EventSTL;
  TTree *mytree = new TTree("T","My tree");
  mytree->Branch("abc","EventSTL",&CC,16000,2);
  
  for (Int_t i=0;i<40;++i) {
    for (Int_t j=0;j<i%20;++j) {
      CC->Electron(i);
    } 
    mytree->Fill(); 
    CC->VI();
    CC->Clear();
  }
  
  mytree->Write();
  mytree->Print();
}