let unquote_id_item = let t = Hashtbl.create 200 in Hashtbl.add t "nbsp" " " ; Hashtbl.add t "sp" " " ; Hashtbl.add t "amp" "&" ; Hashtbl.add t "sl" "/" ; (fun x -> try Hashtbl.find t x with _ -> x)