let
bits_of_most_negative_float =
of_int64 (
Int64
.bits_of_float (-. max_float))