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

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