#!/usr/bin/perl

#naseka na TeXovsky \halign maximalne 300 radku

print "$ARGV[0]\n";
$pocet=0;
while(<STDIN>){
	print;
	if(++$pocet>=300){
		$pocet=0;
		print "}\n";
		print "$ARGV[0]\n";
	}
}
print "}\n";
