Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
"sup1" => "SUPERSCRIPT ONE",
```