interface Lex = open Grammar in { oper even_A : A ; odd_A : A ; zero_PN : PN ; }