#!/usr/bin/perl

use strict;

my $i;
my $maxi = 1000000;

for ($i = 0; $i < $maxi ; $i++) {
	print "$i,xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n";
}