print "hello music fans of the world\n";

foreach $i (1..20) 
{ 
	foreach $j (1..($i*2+5)) { 
		$c= int(  ( rand (20000) / 200) + 400); 
		foreach $l (1..($i*3+5)) 
		{ 
		print "debug: $c $l $j\n";
			$value = $j * $c + $i + $l;	
			push @args, $value . ".0" . $l;
			print STDERR $value . "\t";
		};  
		print STDERR "line" . join(';', $c , $j ,  $l , $i , "\n");
	};  
#	@args = sort { $a > $b }  (@args);

	#$new= "url_history". $i ."=
	$new ="tone://" 
	. join (";",  @args) 
	. "\n";
#	push @uri,$new;
	print "$new\n";	
}

#push @uri,"url_history_length=20";
#print join