module Make:
functor (
Key
:
) ->
S
with type key = Key.t
type key
type t
include Sexpable
val create : (key * float) list -> (t, string) Result.t
(key * float) list -> (t, string) Result.t
val get : t -> key -> float
t -> key -> float