#include "TH1.h"
#include "TFile.h"
#include "TList.h"
   class MyClass: public TObject {
   private: 
   Int_t numlists; 
   TList **mylist; //[numlists]

   public:
   MyClass() {
      numlists = 0;
      mylist = 0;
   }
   virtual ~MyClass() {
      for (Int_t i=0;i<numlists;i++) mylist[i]->Delete();
      delete [] mylist;
   }
   void Init(int n=10) {
      numlists = n;
      mylist = new TList*[numlists]; 
      for(Int_t c=0;c<numlists;c++) mylist[c]=new TList(); 
   } 

   void Fill() {
      for(Int_t c=0;c<numlists;c++) {
         mylist[c]=new TList(); 
         for (Int_t c2=0;c2<100;c2++) {
            TH1F *h =new TH1F(Form("h_%d_%d",c,c2), "title",100,-2,2); 
            mylist[c]->Add(h); 
            h->FillRandom("gaus",c+c2+100); 
         } 
      }
   }  
   static MyClass *Go() {
      TH1::AddDirectory(kFALSE);
      TFile *f = new TFile("lists.root","recreate");
      MyClass a;
      a.Init();
      a.Fill();
      a.Write("lists");
      delete f;
      f = new TFile("lists.root");
      f->ls();
      MyClass *b = (MyClass*)f->Get("lists");
      delete f;
      b->Dump();
      return b;
   }
   ClassDef(MyClass,1)
};