D:\>perl -MMath::MPFR=":mpfr" -le "for(1..10) { Rmpfr_dump(Math::MPFR->new(sprintf '%.17g', rand()))}"
0.10110100110110100010000010011000101000100000001000000E-1
0.10001101011001100001100001100010110001101111000000000E-1
0.11111010010100100101001100000101001010100010001100000E0
0.11000011010000000101111010100100110001011110010000000E-1
0.11111000011001100111110000100011000110100010101000000E-1
0.11101100001000111011110010101111011111111110000000000E-3
0.10001001000110010110010011000011100101100101011100000E0
0.10100000101110001010101010001101001011010001011000000E0
0.11100000100010000001100011100101111101100110100100000E0
0.10000000011000110110000011000010000001100000000000000E-3