test.p6

my $x = 1;

loop (my $i=0; $i < 99999999; $i++) {
	$x = ($i+$i+2*$i+1-0.379)/($x);
}

print $x, "\n";