let a_STRING = Gram.Entry.mk "a_STRING"