#!/usr/bin/perl

my $buffer;
my $i = 0;

while (!eof(STDIN)) {
	$buffer .= <STDIN>;
	$i++;
	if ($i % 1000000 == 0) {
		print $buffer;
		$buffer = "";
	}
}
print $buffer;
