C:\>perl -MMath::Decimal128=":all" -le "$n1=Math::Decimal128->new('10', 0);$n2=Math::Decimal128->new('1000001', -6);for(1..60000000){$n1 *= $n2}print $n1;"
114197313013072744502959647597176e-5