I think this one avoids any potential ``print/d (long double)1'' problems.

enjoy,
Andrew