Hxd.Make
module S : sig ... end
type t
type 'a s = 'a S.t
val inj : 'a s -> ( 'a, t ) io
val prj : ( 'a, t ) io -> 'a s