template w_Entity do
   var child_name : text;
   var txt : text;
end;

match Entity () do
   wrap w_Entity (
     child_name => defer ("NO CHILDREN FOR \e<f_name>"),
     txt => f_name
   );

   match child (Entity ())
   wrap n: w_Entity (
     child_name => defer (n.child (w_Entity ()).txt),
     txt => f_name
   );
end;

match w_Entity () 
weave standard.out ("CHILDREN FOR \e<it.origin.f_name>: \e<child_name>\n");