perl -e 'for($i=1;$i<=34;$i++){$n=sprintf("%02d",$i); print "stilts tcat in=tab${n}_results.xml.gz out=tab${n}_results.fits ofmt=fits\n";}'