module Int: S with type key = int
S
with type key = int
type key
type t
include Sexpable
val create : (key * float) list -> [ `Fail of string | `Succeed of t ]
(key * float) list -> [ `Fail of string | `Succeed of t ]
val get : t -> key -> float
t -> key -> float