or download this
$ perl -e'printf qq[%s => %.68f => %.1f\n], (qq[0.${_}5]) x 3 for (0..
+9)'
0.05 => 0.050000000000000000000677626357803440271254658000543713569641
+11328125 => 0.1
...
0.75 => 0.750000000000000000000000000000000000000000000000000000000000
+00000000 => 0.8
0.85 => 0.850000000000000000021684043449710088680149056017398834228515
+62500000 => 0.9
0.95 => 0.949999999999999999989157978275144955659925471991300582885742
+18750000 => 0.9