sub get_tree_iterator {
    my @rtrees=(shift);
    my $tree;
    return sub {
        $tree=pop @rtrees;
        ($tree, $rtrees[@rtrees]) = @$tree while ref $tree;
        return $tree;
    }
}