perl58 -le "$eps = 1; while( 10 < 10 + $eps ){ $eps /= 2 ; } print $eps,"
8.88178419700125e-016