#!/afs/athena/contrib/perl/perl

$numcol = shift(@ARGV) || die 'I need a number of columns!\nstopping';
$wid = int(80/$numcol);

while (<>) {
    chop;
    push(@ln, $_);
    if ($#ln+1 == $numcol) {
	for ($i=0; $i<$#ln; $i++) {
	    printf "%-".$wid."s",$ln[$i];
	}
	print $ln[$#ln],"\n";
	@ln = ();
    }
}

if (@ln) {
    for ($i=0; $i<$#ln; $i++) {
	printf "%-".$wid."s",$ln[$i];
    }
    print $ln[$#ln],"\n";
}