#!/usr/athena/bin/perl

srand;
$seed = rand(1000);
for $trial (1..100){
	srand(time+(7*$seed));
	$seed = rand(1000);
	%have = ();
	for $c (1..$ARGV[0]){
		$s = int(rand($ARGV[1]));
		$have{$s} = 1;
	}
	@x = keys %have;
	$rt += ($#x +1);
}

print $rt/100, "\n";