sig
  val encode : ?pos:int -> ?len:int -> string -> string
  val decode : ?pos:int -> ?len:int -> string -> string
end