let quote_attribute s = s

let quote s = s

let error s = "<error>" ^ (quote s) ^ "</error>"

let ok () = "<ok/>"