#!perl
use bignum;

my $tmp = "-0.00000000000000007573064690121714";
my $e = exp($tmp);

printf("%3.20g\n", $e);
print "$e ", 1-$e, "\n";