tfree
tfree(tp->val.t, tp->areap);
void tfree ARGS((struct op *, Area *));
tfree(t->left, ap);
tfree(t->right, ap);