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)