diff --git a/src/entities.xfst b/src/entities.xfst
new file mode 100644
index 0000000..92430ef
--- /dev/null
+++ b/src/entities.xfst
@@ -0,0 +1,5 @@
+define XMLentitiesDec ["#" Digit Digit+ ];
+define XMLentitiesHex ["#" ["x"|"X"] HexLetter HexLetter+ ];
+define XMLentitiesStr [[[AsciiLetter .o. Caseinsensitive].l | Digit | "_" | "-" ]+ ];
+
+read regex ["&" [XMLentitiesDec|XMLentitiesHex|XMLentitiesStr] ";"];
\ No newline at end of file
diff --git a/src/tokenizer.xfst b/src/tokenizer.xfst
index 742f147..dca20c4 100644
--- a/src/tokenizer.xfst
+++ b/src/tokenizer.xfst
@@ -54,7 +54,7 @@
               ! from book
               [%‘ %‘]|[%’ %’]];
 
-define Sym ["-"|"+"|"<"|">"|"*"|"/"|%=|%@];
+define Sym ["-"|"+"|"<"|">"|"*"|"/"|%=|%@|%&];
 define Apos %'|%’|%`;
 define Punct [LP|RP|Sym];
 !define nonSym \[WS|LP|RP|Sym];
@@ -163,7 +163,12 @@
     ] WS* ">"
 ].u;
 
-!define Email [Alpha [URLChar-At]* At Alpha URLChar* [Dot [[Alpha URLChar+]-Dot-At]]+];
+! XML entities
+source entities.xfst
+define XMLEntities;
+
+
+! Email addresses
 define Email URLChar+ At URLChar+ [Dot URLChar+]+;
 
 ! Twitter user, hashtag, Google+
@@ -225,6 +230,7 @@
 echo - Introduce Token splitter
 
 define Token [
+  XMLEntities @-> ... NLout,
   Abbr @-> ... NLout,
   RealToken @-> ... NLout,
   Plusampersand @-> ... NLout,