sig
  type key
  type t
  type sexpable = t
  val sexp_of_t : sexpable -> Sexplib.Sexp.t
  val t_of_sexp : Sexplib.Sexp.t -> sexpable
  val create :
    (Piecewise_linear.S.key * float) list ->
    [ `Fail of string | `Succeed of Piecewise_linear.S.t ]
  val get : Piecewise_linear.S.t -> Piecewise_linear.S.key -> float
end