#include <stdio.h>

main()
{
  char a[50],b[50];
  FILE *fp;
  int k;
  system("ls p*.fit >1.1");
  fp=fopen("1.1","r");
l10:
  fgets(a,50,fp); if(feof(fp))goto l20;
   printf("%s",a);
  k=strlen(a)-1; a[k]=0;
  sprintf(b,"coord9 %s !",a);
   printf("%s\n",b);
  system(b);
  goto l10;
l20:
  fclose(fp);
  system("rm wcs.coo test.cat 1.1");
  system("dirccd1");
}