"text" \_ any?
{
%%%% unescape
}
{
"<" _\\ catcatspc
%
% get the list of all values
%
_\ "*Values" do
%
% create the list of attributes with escaped content
%
1 2 rot
{
 pop
 "_" atleft(
 {
  pop2
 }
 {
  """" third Str.Found zero
  {
   &"=" exch
%%%  entenc
   quocat

   [Push]
  }
  {
   pop2
  } ifelse
 } ifelse
} for

[Up]
{
 pop
 catspc [Pop] &
} for

&">
"

} ifelse