PROGRAM
input[!color] = PROGRAM;
input[BLACK] = PROGRAM;
input[WHITE] = PROGRAM;
input[!color] = PROGRAM;
input[BLACK] = PROGRAM;
input[WHITE] = PROGRAM;
case PROGRAM: /* input comes from the program */
if (input[color] == PROGRAM)
winner = (Node *)stat3(PROGRAM, beginloc, $1, endloc); }
%token <p> PROGRAM PASTAT PASTAT2 XBEGIN XEND
{ PROGRAM, "program", NULL },