TLIST
case TLIST:
while (t->type == TLIST) {
t = tl = block(TLIST, t, p, NULL);
tl = tl->right = block(TLIST, tl->right, p, NULL);