void elcreate() {
  TChain* t = new TChain("g2pi", "hi");
  t->AddFile("in.root");

  TFile* fel = TFile::Open("in_elist.root", "RECREATE");
  t->Draw(">>elist", "gtpe>0.48&&gtpe<0.56", "entrylistarray");
  
  TEntryListArray* elist = (TEntryListArray*) fel->Get("elist");
  
  fel->Write();
  fel->Close();
}