#!/usr/bin/env perl

print "CREATE table compteurs(id integer, val integer[]);";

print "COPY compteurs FROM stdin;\n";

for (my $i=0;$i<100000000;$i++)
{
	my $nb_elements=int(rand(100));
	my @values;
	for (my $j=0;$j<$nb_elements;$j++)
	{
		my $value =int(rand(1000000));
		push @values,($value);
	}
	print "$i\t{",join(',',@values),"}\n";
	if (($i % 100000)==0)
	{
		print STDERR $i,"\n";
	}
}
print "\\.\n";