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