perl -MData::IEEE754::Tools=ulp -le "printf qq(%.17e = %22.13a => %s\n), $_, $_, $_ for ulp(1.03), map 1.03-$_*ulp(1.03), 0..5,22,23"
2.22044604925031308e-16 =  0x1.0000000000000p-52 => 2.22044604925031e-16
1.03000000000000003e+00 =   0x1.07ae147ae147bp+0 => 1.03
1.02999999999999980e+00 =   0x1.07ae147ae147ap+0 => 1.03
1.02999999999999958e+00 =   0x1.07ae147ae1479p+0 => 1.03
1.02999999999999936e+00 =   0x1.07ae147ae1478p+0 => 1.03
1.02999999999999914e+00 =   0x1.07ae147ae1477p+0 => 1.03
1.02999999999999892e+00 =   0x1.07ae147ae1476p+0 => 1.03
1.02999999999999514e+00 =   0x1.07ae147ae1465p+0 => 1.03
1.02999999999999492e+00 =   0x1.07ae147ae1464p+0 => 1.02999999999999