sub suffer {
$_[0].substr("stndrdththththththththththththththththth".
             "stndrdththththththththththst",2*$_[0]-2,2)}