instance LexFre of Lex = open SyntaxFre, ParadigmsFre in {

  oper
    even_A = mkA "pair" ;
    odd_A = mkA "impair" ;
    zero_PN = mkPN "zéro" ;

}