external frexp : float -> float * int = "caml_frexp_float"