type t = string

let htmlentities s = s (* fix this *)
let htmldecode s = s (* fix this *)

let make s = htmlentities s
let extract s = htmldecode s
let concat s1 s2 = s1 ^ s2