sub th {
  my $n = shift;
  for ($n) {
    return $n . "st" if /1$/ and !/11$/;
    return $n . "nd" if /2$/ and !/12$/;
    return $n . "rd" if /3$/ and !/13$/;
    return $n . "th";
  }
}