for($i=0;$i<$ARGV[0];$i++)
{
	$len = int(rand(40));
	for($j=0;$j<$len;$j++)
	{
		print chr(int(rand(46))+65);
	}
	print "\n";
}