#include <stdio.h>
FILE *fp;
char a[80],b[80],c;
int  d[80];
char dir[8];
int  nc=0;
main(int ac, char **av)
{
  int i,j,k=0;
  if(ac<2){
     printf("\n\tusage: mv1 t527\n\n");
     printf("ls *.fit >1.3,  you do\n");
     printf("create dir of t527 & t527/? (color)\n");
     printf("move file to t527/?\n\n");
     exit(0);
  }
  fp=fopen("1.3","r");
  if(fp==0){ printf("not found 1.3\n"); exit(0); }  
l10:
  fgets(a,80,fp); if(feof(fp))goto l20;
//  printf("%c",a[12]);
  c=a[12]; k++;
  for(i=0;i<nc;i++) if(c==b[i])goto l15;
  b[i]=c; d[i]++;  nc++; goto l10;
l15:
  d[i]++;  
  goto l10;
l20:
  fclose(fp);
  printf("all: %d\n",k);
  for(i=0;i<nc-1;i++)for(j=i+1;j<nc;j++){
    if(b[i]>b[j]){ c=b[i]; b[i]=b[j]; b[j]=c;
                   k=d[i]; d[i]=d[j]; d[j]=k;
    }
  }
  for(i=0;i<nc;i++)printf("%c %3d\n",b[i],d[i]);
  
  strcpy(dir,av[1]); 
  sprintf(a,"mkdir %s",dir);
//  printf("%s\n",a);
  system(a);
  for(i=0;i<nc;i++){
    sprintf(a,"mkdir %s/%c",dir,b[i]);
//  printf("%s\n",a);
    system(a);
  }

  fp=fopen("1.3","r");
l50:
  fgets(a,80,fp); if(feof(fp))goto l60;
  k=strlen(a)-1; a[k]=0; c=a[12];
  sprintf(b,"mv %s %s/%c",a,dir,c);
//  printf("%s\n",b);
  system(b);
  goto l50;
l60:
  fclose(fp);
}