type t = float

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

let to_float x = x

let to_string x = string_of_float @@ to_float x

let of_string x = of_float @@ float_of_string x