use strict;
use warnings;

for (1..10000000) {
	print $_, "\r\n";

}