use strict;
use warnings;
use Math::BigFloat;

my $exp=6e7;
Math::BigFloat->precision(-100);
my $x=Math::BigFloat->new('1.000001');
my $val=Math::BigFloat->new('1');
$\="\n";


for my $bit (reverse split //,sprintf '%b',$exp) {
    # print "$bit ",$x;
    $val->bmul($x) if $bit;
    $x->bpow(2);
}

$val->bmul(10);

print "Result : $val";

my $syphilis=Math::BigFloat->new('1141973130130727445029596475.971760');

print "diff: ", $val - $syphilis;