Neat. That sounds like something I'd like to play with... Perl Golf, anyone?

sub suffer {
    local $_ = shift;
    return $_ . (/(?<!1)([123])$/ ? (qw(- st nd rd))[$1] : 'th');
}
[download]

Hmm, that's not very compact. But at least, it works. :)