CEphemeron
type 'a key
val create : 'a -> 'a key
exception
InvalidKey
val get : 'a key -> 'a
val default : 'a key -> 'a -> 'a
val iter_opt : 'a key -> ('a -> unit) -> unit
val clean : unit -> unit