sig
  type t
  val pickler : t Tws_prot.Pickler.t
  val unpickler : t Tws_prot.Unpickler.t Core.Std.Only_in_test.t
  val ( = ) : t -> t -> bool
  val create :
    contract:[ `Option ] Contract.t ->
    volatility:float -> underlying_price:Price.t -> Query.Option_price.t
  val t_of_sexp : Sexplib.Sexp.t -> Query.Option_price.t
  val sexp_of_t : Query.Option_price.t -> Sexplib.Sexp.t
end