(defvar *entities* '(("lt;" #\<) ("gt;" #\>) ("amp;" #\&) ("apos;" #\') ("quot;" #\") ("nbsp;" #\Space)))