C:\>perl -MMath::MPFR -le "print 1 / exp(Math::MPFR->new('15863.8668285308'))"
2.5714300868604479e-6890