my $node = my $tree = [];
my @stack;