sig
exception Already_set
type 'a t
type 'a sexpable = 'a t
val sexp_of_t : ('a -> Sexplib.Sexp.t) -> 'a sexpable -> Sexplib.Sexp.t
val t_of_sexp : (Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a sexpable
val create : unit -> 'a Set_once.t
val set : 'a Set_once.t -> 'a -> (unit, string) Result.t
val set_exn : 'a Set_once.t -> 'a -> unit
val get : 'a Set_once.t -> 'a option
val get_exn : 'a Set_once.t -> 'a
end