C:\>perl -MMath::LongDouble=":all" -le "$n1=Math::LongDouble->new('10');$n2=Math::LongDouble->new('1.000001');for(1..60000000){$n1 *= $n2}print LDtoSTRP($n1, 28);"
1.141973130132393144424071168e+027