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