tcopy
tp->val.t = tcopy(t->left, tp->areap);
struct op * tcopy ARGS((struct op *, Area *));
r->left = tcopy(t->left, ap);
r->right = tcopy(t->right, ap);