let compare (a: float) (b: float) = compare a b