{
  gROOT->Reset();

  TFile f("test_hadd_comb.root", "READ");

  TIter next(f->GetListOfKeys());
  TKey* key = 0;
  while (key = (TKey*)next()) {
    TObject* obj = key->ReadObj();
    std::cout << "Key `" << key->GetName() << "'"
	      << " with cycle " << key->GetCycle()
	      << std::endl;
    std::cout << "  points to a " << obj->IsA()->GetName()
	      << " called `" << obj->GetName() << "'"
	      << " with title `" << obj->GetTitle() << "'"
	      << std::endl;
  } // while

  f.Close();
}