#include <stdio.h>
#define LINE_LENGTH 79

char  *index ();

main ()
{   char fname [2000], *ptr;

    while (fgets (fname, 2000, stdin))  {
	if (ptr = index (fname, '\n'))
	    *ptr = '\0';
	if (ptr = index (fname, '\r'))
	    *ptr = '\0';
	do_file (fname);
    }
}

do_file (fname)
char *fname;
{   char line [5000], *ptr;
    FILE *finp;

    if (!(finp = fopen (fname, "r")))  {
	fprintf (stderr, "Error reading file \"%s\" ", fname);
	perror ("because");
	return;
    }
    printf ("%s\n", fname);
    while (fgets (line, 5000, finp))  {
	if (ptr = index (line, '\n'))
	    *ptr = '\0';
	if (ptr = index (line, '\r'))
	    *ptr = '\0';
	output_line (line);
    }
    printf ("\n");
    fclose (finp);
}

output_line (line)
char *line;
{   char *ptr, *o_ptr;

    if (!*line)   /*  don't print out empty lines  */
	return;
#if 0
    ptr = o_ptr = '\0';

    if (strlen (line) > LINE_LENGTH)  {
	ptr = o_ptr = line;
	while ((ptr - line) <= LINE_LENGTH)  {
	   o_ptr = ptr;
	   ptr = index (ptr, ' ');
	}
    }
#endif
    printf (" %s\n", line);
#if 0
    if (o_ptr)
	output_line (o_ptr);
#endif
}