import System.Environment
import Data.List


count list = map (\x -> (head x, length x)) . group . sort  $ list
main :: IO ()
main = do
   args <- getArgs
   wordsList <- mapM (\x-> do
                            content<- readFile x
                            return (words content)) args
   let c= count $ concat wordsList
   mapM_ (putStr . show) c