type encoder = {payload : Stdlib.Bytes.t;mutable pos : int;
}type error = [ | `No_enough_space
]val pp_error : error Fmt.ttype 'err state = | Write of {buffer : string;off : int;len : int;continue : int -> 'err state;
}| Error of 'err| Done
val write : encoder -> string -> unitval blit : encoder -> buf:string -> off:int -> len:int -> unit