sub num2ord {
  local $_ = shift;
#          1        2         3         4
# 123456789012346789012345678901234567890
  $_.(qw(0 st nd rd)[/1?.$/g]||th)
}