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

read regex ["&" [XMLentitiesDec|XMLentitiesHex|XMLentitiesStr XMLentitiesStr+] ";"];