// test pgen  21 Dec 2001

expr -> term exprs #
exprs -> tkOROR term $out(icOr); exprs | nil #

mod2 [ a ] ->
  $a=getsym();
  tkLBRACKET $chktype(a,tyVECTOR);out2(icLvalg,symtab[a].ref);
    expr tkRBRACKET $out(icIndex); |
  $doLval(a); nil #

END

