{
  gROOT->Reset();

  TClonesArray a("TObjString");
  new(a[0]) TObjString("one");
  new(a[1]) TObjString("two");

  TClonesArray b("TObjString");
  new(b[0]) TObjString("three");
  new(b[1]) TObjString("four");

  TFile f_a("test_hadd_a.root", "RECREATE");
  a.Write("merge_this", TObject::kSingleKey);
  f_a.Close();

  TFile f_b("test_hadd_b.root", "RECREATE");
  b.Write("merge_this", TObject::kSingleKey);
  f_b.Close();
}