sig
val
escape_text : string
->
string
end