Ocaml Float Function