int SZ = 25000;
int N = 10;

{
  Timer tm("traid.cc");
  TArray<int_4> ia(SZ,0,0);
  ia = RegularSequence();
  tm.Split("ia-OK");
  char flnm[128];
  for(int i=0; i<N; i++) {
    sprintf(flnm, "!traid%d.fits",i);
    string ss = flnm;
    cout << i << "-----> Creating file " << flnm << endl;
    FitsOutFile fo(ss);
    fo << ia;
    tm.Split("Write-Done");
  }
}