type t = | Float of float| Int32 of int32| Int64 of int64| Nativeint of nativeint| Float_array of float list| Immutable_float_array of float list| String of string| Immutable_string of string
val compare_floats : float -> float -> intval compare : t -> t -> int