sub close_all {
  my $node = shift;
  foreach my $child ($node->method_to_get_its_children) {
    close_all($child);
  }
  $node->method_to_close_itself;
}