define XMLentitiesDec ["#" Digit Digit+ ];
define XMLentitiesHex ["#" ["x"|"X"] HexLetter HexLetter+ ];
define XMLentitiesStr [[[AsciiLetter .o. Caseinsensitive].l | Digit | "_" | "-" ] ];

define XMLEntities ["&" [XMLentitiesDec|XMLentitiesHex|XMLentitiesStr XMLentitiesStr+] ";"];