%
% stack: src-node dest-node current-node
%
Tree._First
{
%
% stack: src-node dest-node current-node
%
 {
  dup !\

  dup hier
"offed " log)(
  _destoff minus left
"offee " log)(
  third make
%
% stack: src-node dest-node current-node node-id
%
% copy values from current node to destination node
%
  2 copy "CopyIm" do
  !\
  dup @^*Values
  execstr
  countup
  2 div
  {
   pop
"*val " log)(
   dup
   <
   |__Tree
    pop2
   > not
   {
    \!
   } if

  } for
%
% stack: src-node dest-node current-node
%

%%%  *=

%
% stack: src-node dest-node current-node
%
  Tree.EndOf ?
 } loop
 pop



} if
%
% stack: src-node dest-node
%