language Pendant {
  nonterminal Stms, Stm, Exp, Base;

  Stms[one]  --> <Stm>        ;
      [more] --> <Stm> <Stms> ;

  Stm[ass]    --> <Lex.Var> := <Exp> ";"                     ;
     [svp]    --> <Lex.Var> := <Exp> , s'il vous plaît ";"   ;
     [skip]   --> je n'en ai rien à foutre ! ";"             ;
     [if]     --> si <Exp> alors <Stm>                       ;
     [ifelse] --> si <Exp> alors <Stm> sinon <Stm>           ;
     [while]  --> pendant <Exp> fait <Stm>                   ;
     [block]  --> { <Stms> }                                 ;

  Exp[base] --> <Base>          ;
     [neg]  --> ne <Base> pas   ;
     [add]  --> <Base> + <Base> ;
     [sub]  --> <Base> - <Base> ;
     [mul]  --> <Base> * <Base> ;
     [div]  --> <Base> / <Base> ;

  Base[num] --> <Lex.Num> ;
      [var] --> <Lex.Var> ;
}