BEGIN {
      command="count <tarZ$use>.archive ~C~RV";
      command | getline;
      close(command);
      if (substr($2,length($2)-length("_tar")+1)=="_tar")
         {
         system(sprintf("rename %s <tarZ$use>.archive.x_tar",$2));
         print "WARNING: assuming uncompressed tarfile";         
         exit;
         }
      if (substr($2,length($2)-length("-tar")+1)=="-tar")
         {
         system(sprintf("rename %s <tarZ$use>.archive.x_tar",$2));
         print "WARNING: assuming uncompressed tarfile";         
         exit;
         }
      if (toupper(substr($2,length($2)-length("x_tar-Z")+1))!=toupper("x_tar-Z"))
         {
         system(sprintf("rename %s <tarZ$use>.archive.x_tar-Z",$2));
         }
      }