import Data.Function (on)
import Data.List (sortBy)

n561 :: String -> [(Int, [String])]
n561
  = sortBy (compare `on` snd)
  . zip [1..]
  . fmap words
  . drop 1
  . lines

main :: IO ()
main = getContents >>= mapM_ print . fmap id . n561