sig val escape_text : string -> string end