import System.Environment (getArgs)
import Control.Monad (forM_)

countWords path = do
  content <- readFile path
  let numWords = length (words content)
  putStrLn (show numWords ++ "  " ++ path)
  
main = do
  args <- getArgs
  mapM_ countWords args