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