type serialiser = { mutable buf : bytes; mutable pos : int; }
val flush : serialiser -> unit
val serialise : serialiser -> Types.chunk -> unit
val create : serialiser