let
nearly_zero f =
let
c = classify_float f
in
c =
FP_zero
||
c =
FP_subnormal