Module type S.X

type 'a s
type t
val inj : 'a s -> ('at) io
val prj : ('at) io -> 'a s