{
  TObjArray Hlist(0);
  TFile f("gauss.root");
  Hlist->Add(h1);
  h1->Fit("gaus");
  TFile f2("gaussfit.root","recreate");
  Hlist->Write();
  f.Close();
  f2.Close();
}