#!/bin/tcsh -f

if ( ! -d store_arfs ) mkdir -p store_arfs

foreach num1 ( 0 1 2 3 4 5 6 7 8 9 )
  foreach num2 ( 0 1 2 3 4 5 6 7 8 9 )
    perl -I/home/username/perl5/lib/perl5/darwin-thread-multi-2level/ -I/home/username/perl5/lib/perl5/ ./mccal-1.0/arfmunge obs866/acis.arf store_arfs/866_0${num1}${num2}.arf
    perl -I/home/username/perl5/lib/perl5/darwin-thread-multi-2level/ -I/home/username/perl5/lib/perl5/ ./mccal-1.0/arfmunge obs866/acis.arf store_arfs/866_1${num1}${num2}.arf
    perl -I/home/username/perl5/lib/perl5/darwin-thread-multi-2level/ -I/home/username/perl5/lib/perl5/ ./mccal-1.0/arfmunge obs866/acis.arf store_arfs/866_2${num1}${num2}.arf
    perl -I/home/username/perl5/lib/perl5/darwin-thread-multi-2level/ -I/home/username/perl5/lib/perl5/ ./mccal-1.0/arfmunge obs866/acis.arf store_arfs/866_3${num1}${num2}.arf
    perl -I/home/username/perl5/lib/perl5/darwin-thread-multi-2level/ -I/home/username/perl5/lib/perl5/ ./mccal-1.0/arfmunge obs866/acis.arf store_arfs/866_4${num1}${num2}.arf
    ls -l store_arfs/866_?${num1}?.arf
  end
end
