sub suffer
{
	local $_ = shift;
	my$suf = 'th';
	if( !/1.$/ ) { $suf = 'st' if /1$/; $suf = 'nd' if /2$/; $suf = 'rd' if /3$/ }
	return $_.$suf;
}