OCHAR
case OCHAR:
EMIT(OCHAR, ch);
case OCHAR: /* sequence member */
while (OP(s = *scan++) != OCHAR)