/*  frequen.c  --  the frequency of each letter  */

#include <stdlib.h>
#include <ctype.h>
#include "ios.h"   /* using the input/output service module  */

static long int  Table [256];

void  main ( int argc, char * argv [] )
{    int c, k, n;	long int  N;
     char * from;  FILE * outfile;
 if ( argc < 3 )  err_command_line ( "frequen infile outfile" );
 open_input_file ( argv [1] );
 for ( k=0; k<256; k++ )  Table [k] = 0;
 while ( 0 <= ( n = get_line ( & from ) ) ) {
   for ( k=0; k<n; k++ ) {
     c = (unsigned char) from [k];
     if (
	     ( c & 0x80 )
          || ! isascii ( c )
          || ! ( isspace ( c ) || isdigit(c) || (c=='<') || (c=='-') )
	)
       ++ Table [ c ];
   }
 }
 outfile = open_output_file ( argv [2] );
 for ( c=0; c<256; c++ ) {
   N = Table [c];
   if ( N )  fprintf ( outfile, "[ %c  %ld ]\n", (char) c, N );
 }
 exit (0);
}

/*  end of  frequen.c  */