#include <stdio.h>
#include <stdlib.h>

/*  look for 2000000.  Adjust that to get the timing right */

main ( argc, argv )

  int argc ;
  char *argv[] ;

  {
    int lncnt ;
    long int sumt ;
    unsigned long int t ;
    char chr ;
    FILE *in_file, *fopen() ;

    if ( argc != 2 )
      {
        printf (" Usage is:  trickle <infile>, where <infile> \n") ;
        printf ("          is the file to trickle out.\n") ;
        exit (0) ;
      }

    if ((in_file = fopen ( argv[1], "r" ))==NULL)
      {
         fprintf (stderr,"Cannot open file %s \n",argv[1]) ;
         exit(8) ;
      }

    lncnt = 0 ;
    sumt = 0 ;
    while (( chr = fgetc ( in_file )) != EOF )
      {
         for (t=0; t<2000000; t++) sumt = t ;   /* delay */
         printf ("%c",chr) ;
         fprintf (stderr,"%c",chr) ;
         if (chr == '\n')
           {
             printf ("\r") ;
             fprintf (stderr,"\r") ;
             lncnt++ ;
           }
      }

    fprintf (stderr,"Processed %d lines.\n",lncnt) ;
    fclose ( in_file ) ;
    exit (0) ;
  }