let a_CHAR = Gram.Entry.mk "a_CHAR"