sig
  val escapable_string :
    string -> stop_before:char list -> string * char option * string
end