sig
  type 'a message = 'a
  type cont = (unit -> unit) option
  type 'a t
  val create : unit -> 'a Channel_message_store.t
  val empty : 'a Channel_message_store.t
  val set :
    'a Channel_message_store.t ->
    'a Channel_message_store.message ->
    Channel_message_store.cont -> 'a Channel_message_store.t
  val get :
    'a Channel_message_store.t ->
    ('a Channel_message_store.t -> unit) -> 'a Channel_message_store.message
  val exec : Channel_message_store.cont -> unit
  val append :
    Channel_message_store.cont ->
    Channel_message_store.cont -> Channel_message_store.cont
end