D:\>perl -MMath::MPFR=":mpfr" -MPDL -le "for(1..10) {Rmpfr_dump(Math::MPFR->new(sprintf '%.15g', rand()))}"
0.11011001011111100110011011010010100010000000100011011E-3
0.10001011110110011101000101001110110001101111000000110E-1
0.11001011001111001101010100001100101010001000110000110E-2
0.11110111001110000011011110111000011000101111000111101E0
0.11110111100000100111010101111111100011010001010100010E0
0.10001110111001111100101011010111110111111111011111000E-1
0.10101100000000101101100111000011001011001010110111010E-1
0.11010110011101110001001101010011001011010001010111111E0
0.11111010001001001100100110011111101100110100011110010E-3
0.11010111110100100001010011100100000011000000000000100E-4