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

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