#!/usr/bin/perl -w

# -------------------------------------
# In a group of 30 people, what is the likelihood that they all 
# have _different_ birthdays?

$B=1;
print "\n\n";

for ($K=0; $K <=30; $K++) {
	$B =$B*(1 - $K/365);
	$k = $K+1;
print "$k   $B\n";
#	if (($k % 5) == 0) {print "  $k   $B\n";}
}