external dGetInfinity : unit -> float = "ocamlode_dGetInfinity"