module Set_once: Set_onceexception Already_set
type 'a t
include Sexpable.S1
val create : unit -> 'a tval set : 'a t -> 'a -> (unit, string) Result.tval set_exn : 'a t -> 'a -> unitval get : 'a t -> 'a optionval get_exn : 'a t -> 'a