{
 TObjArray Hlist(0); 
  TH1F* h1;
  h1 = new TH1F("h1","Histo from a Gaussian",100,-3,3);   
  Hlist->Add(h1);
  h1->FillRandom("gaus",10000); 
  TFile f("gauss.root","recreate");
  Hlist->Write();
  f.Close();
}