%
% stack: [ parent-node . . . ] builder
%
_\\ yml ^"<" &
%
% get the list of all values
%
_\ Tree._Mark
dup "Default" eq$
{
 empty)(
}
{
 "_Mark" yml attrval
} ifelse
!attrs

_\ @^*Values
execstr

%
% create attributes for all values
%
1 2 rot
{
 pop
 yattrval ^:attrs
} for

%
% stack: [ parent-node . . . ] builder
%
&_attrs
&">" &;

first\?
{
%
% stack: first-child
%
 _\ tuck
 {
%
% stack: [ parent-node . . . ] builder current-node
%
  !\
  *=

  final\?
  ?

 } loop
 pop

%
% stack: [ parent-node . . . ] builder
%
 exch !\
} if

%
% stack: [ parent-node . . . ] builder
%
_\\ yml endtag &&;