-- yukicoder My Practice
-- author: Leonardone @ NEETSDKASU

main = interact $ ((zipWith ((++) . show) [1 .. ] . cycle) ("st":"nd":"rd":replicate 7 "th") !!) . length . foldl1 (filter . ((<) . head)) . zipWith ($) [id, drop 2] . replicate 2 . map ((+ 0) . read) . words