{
   local *STDOUT = *MY7;
   print_tree($tree);
}