Select Code to Download

10389! 4570! 44289! 11800!
------------------------------
56089! 989! 9400! 43300! 2400!

8.070604647867604097576877675243109941805e-7030
8.070604647867604097576877675243109941729476950993498765160880e-7030

#!/your/perl/here

...
{
    print +shift, ": ", timestr(timediff(@_)), "\n";
}

foreach my $t ( keys %{$factors} )
{
    my $bft = $ONE->copy()->bmul($t)->bpow($factors->{$t});
    $q->bmul($bft);
}

my $s = '$q';
foreach my $t ( keys %{$factors} )
...
}
eval $s;
die "Error on eval: $@" if $@;