#!/usr/bin/perl
$n=0;

for($i=0;$i<10000;$i++)
{
	$n++ if (rand(53) < rand(45));
}
print $n/10000,"\n";