module Main where

import System.Environment

arg_num_print :: Int -> String -> IO ()
arg_num_print a b = do
  putStr (show a)
  putStrLn (": " ++ b)


do_list a (x:xs) = do
  arg_num_print a x
  do_list (a+1) xs

do_list a [] = do
  return ()

main :: IO ()
main = do
  test <- getArgs
  do_list 1 test