#!/u/smann/bin/perl -s
# Copyright 1995 Stephen Mann
#       This program may be freely used for non-profit use.
#       This program may be copied and modified as long as this copyright
#       notice remains intact.  All other rights reserved.


$ln = 0;
$bn = 0;
$buffer = "";

while (<>) {
	if ( $n ) {
		$buffer = $buffer . "$ln: " . $_;
	} else {
		$buffer = $buffer .  $_;
	}
	$ln++;
	$bn++;
	if ( index($_, "\n") >= 80-n*5 ) {
		$ln++;
		$bn++;
	}
	if ( /^\w*$/ ) {
		if ( $ln >= 65 ) {
			print "";
			$ln = $bn;
		}
		print $buffer;
		$buffer = "";
		$bn = 0;
	} 
}