import System
import Control.Monad

numbering = unlines . map (\(x,y) -> show x ++ y) . zip [1..] . lines
main = mapM_ (putStr . numbering <=< readFile) =<< getArgs