sig
  val escape_gen :
    escapeworthy_map:(char * char) list ->
    escape_char:char -> string -> string
  val escape : escapeworthy:char list -> escape_char:char -> string -> string
  val escape_one_orig :
    escapeworthy:char -> escape_char:char -> string -> string
  val escape_two_orig :
    escapeworthy1:char ->
    escapeworthy2:char -> escape_char:char -> string -> string
  val unescape_gen :
    map:(char * char) list -> escape_char:char -> string -> string
  val unescape : escape_char:char -> string -> string
end