Task.@
 empty !props
 0 !counter

 rootnode

"_Lint2.tlt" ofbin Tree.Save pop

 "Properties"
 seek*
"propseek " log()
 {
%
% stack: Props-node
%
  dup !\
  Tree.Below(
  {
%
% stack: last-Prop-node
%
% descendants of the Properties node are Prop nodes
%
   {
%
% stack: Prop-node
%
    "text" second Tree.OfLast unescape
%
% stack: Prop-node Prop-target
%
    _props exch
    "$" atleft(
    {
     -1 left ^"@"
    } if
    quocat catcr !props
    +:counter

%
% stack: Prop-node
%
    Tree.Prev( ?
   } loop
   pop
%
% stack: 
%
  }
  {
   pop
  } ifelse
 }
 {

 } ifelse

 _props
 &_counter catcr
 !props

%
% stack: 
%