Sourceval io_buffer_size : int Sourcetype error = [ | `Not_enough_space
] Sourcetype 'err state = | Write of {buffer : string;off : int;len : int;continue : int -> 'err state;
}| Error of 'err| Done
Sourceval blit : buf:string -> off:int -> len:int -> encoder -> unit