grammar	:	GRAMPROG
    			{
    			  PL_parser->expect = XSTATE;
    			}
    		remember stmtseq
    			{
    			  newPROG(block_end($3,$4));
    			  $$ = 0;
    			}