sub num2ord {
  my $n = shift;
#          1        2         3         4         5         6         7
# 123456789012346789012345678901234567890123456789012345678901234567890
  $n.(qw(th st nd rd)[$n=~/(1?\d)$/]||th)
}