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