{
  // ----- Load libraries ------------------------------------------------------
  //gROOT->LoadMacro("$VMCWORKDIR/gconfig/basiclibs.C");
  //basiclibs();
  //gSystem->Load("libGenVector");
  //gSystem->Load("libGeoBase");
  //gSystem->Load("libFairDB");
  //gSystem->Load("libParBase");
  //gSystem->Load("libBase");
  //gSystem->Load("libMCStack");
  //gSystem->Load("libField");
  //gSystem->Load("libGen");
  //gSystem->Load("libR3Bbase");
  //gSystem->Load("libR3BGen");
  //gSystem->Load("libR3BPassive");
  //gSystem->Load("libR3BData");
  //gSystem->Load("libR3BLand");
  //gSystem->Load("libMbsAPI");
  

  //gSystem->Load("libUnpack");
  // ---------------------------------------------------------------------------
  
  gROOT->LoadMacro("$VMCWORKDIR/gconfig/basiclibs.C");
  basiclibs();
  gSystem->Load("libGeoBase");
  gSystem->Load("libParBase");
  gSystem->Load("libBase");
  gSystem->Load("libMbs");
  gSystem->Load("libMbsAPI");
  gSystem->Load("libTATOFEvent");
  gSystem->Load("libTCAMACEvent");
  gSystem->Load("libTCHIEvent");
  gSystem->Load("libTLANDEvent");
  gSystem->Load("libTKRATEvent");    
  gSystem->Load("libTRootEvent");
  gSystem->Load("libTMbsInfo");
  gSystem->Load("libTCHIGridCsI");
  gSystem->Load("libMBSUnpack");
  gSystem->Load("libMerger");
  gSystem->Load("libTMBALLEvent");
  gSystem->Load("libAnaCHI");
  
  gSystem->Load("libKRATUnpack2");
  
  // ---------------------------------------------------------------------------
  //FairRemoteSource* source  = new FairRemoteSource("lxi047");
  //FairLmdSource* source  = new FairLmdSource("/Users/kresan/r323_3607.lmd");
  FairLmdSource* source  = new FairLmdSource("/home/sebastian/Datasrc/MAY11/au400_1344.lmd");
  cout << source << endl;

  char *strCalDir = "/Users/kresan/r3b/geo/r3broot/calfiles/land/"; 
  
  //if((*setype==36) && (*sesubtype==1)){
  Int_t type = 36;  ///94;
  Int_t subType = 1; ///9400;

  //source->AddUnpacker(new R3BLandUnpack(strCalDir, type, subType));
  //source->AddUnpacker(new KRATUnpack2(strCalDir, type, subType, 2));
  //source->AddUnpacker(new KRATUnpack2());
  
  //KRATUnpack2 *pKRATUnpack2 = new KRATUnpack2("", type, subType, 3);
  KRATUnpack2 *pKRATUnpack2 = new KRATUnpack2();
  source->AddUnpacker( pKRATUnpack2 );
  
  // ---------------------------------------------------------------------------
  pKRATUnpack2->WriteOutputToFile();

  // ---------------------------------------------------------------------------
  FairRunOnline *run = new FairRunOnline( source  );
  run->SetOutputFile("kratta_data_from_new_unpacker_0517.root");
  // ---------------------------------------------------------------------------


  // ---------------------------------------------------------------------------
  //R3BLandRawAna *ana = new R3BLandRawAna();
  //run->AddTask(ana);
  // ---------------------------------------------------------------------------


  // ---------------------------------------------------------------------------
  run->Init();
  
  
  //run->Run(0, 1000);
  run->Run(1000000,0);
  //run->RunOnLmdFiles();
  // ---------------------------------------------------------------------------
}