#! /usr/local/bin/perl

$LINE_WIDTH=78;

while (<>) {
    @words = split;
    if (not @words) { print "\n"; }
    while (@words) {
	$i = length($words[0]);
	@line = ();
	push (@line, shift @words);
	while (@words && $i + 1 + (length ($words[0])) < $LINE_WIDTH) {
	    $i += length($words[0]) + 1;
	    push (@line, shift @words);
	}
	$line = join ' ', @line;
	print $line, "\n";
    }
}
