C:\>perl -MMath::Float128=":all" -le "$n1=Math::Float128->new('10');$n2=Math::Float128->new('1.000001');for(1..60000000){$n1 *= $n2}print $n1;"
1.14197313013072744502959647306684e+27