sub AUTOLOAD {
		my $tree = shift;
		our $AUTOLOAD;

		print STDERR "@@@ $AUTOLOAD(\$tree) @@@\n";
		recurse($tree);
	}