sig val encode : ?pos:int -> ?len:int -> string -> string val decode : ?pos:int -> ?len:int -> string -> string class encoding_pipe : unit -> Netchannels.pipe class decoding_pipe : unit -> Netchannels.pipe end