type t = float

let of_float x =
  assert ( x >= 0. );
  x

external to_float : t -> float = "%identity"

let to_string x =
  let f = to_float x in string_of_float f

let of_string x =
 let f = float_of_string x in of_float f