TCASE
case TCASE:
t = newtp(TCASE);
r->str = t->type == TCASE ? wdcopy(t->str, ap) : str_save(t->str, ap);