sub ordinal
 {
 my ($entity)= @_;  # TBA: options?
 return $W3C_Entities{$entity};
 # TODO:  look in other lists if options indicate
 }

sub character
 {
 my $ord= ordinal (@_);
 return chr($ord);
 }

sub hex
 {
 my $ord= ordinal (@_);
 return sprintf ("%04x", $ord);
 }