%
% cycle through all children for tree
%
_\

rootnode

*treerune

!\

/*

Tree._First
{
 _\ exch
 {
  !\
  *treerune
  *=
  Tree.Next?
  ?

 } loop

 pop

 !\

} if

*/