#!perl
use bignum;
use Math::BigFloat;
print ((new Math::BigFloat("1")) -
       exp(new Math::BigFloat("-7") /
             (new Math::BigFloat("10")**(new Math::BigFloat("17")))));
# Incorrectly prints "1"