import System.Environment (getArgs)
import Control.Monad (forM_)
import qualified Data.ByteString.Char8 as B

main = do
  args <- getArgs
  forM_ args $ \arg -> do
    content <- B.readFile arg
    let len = length (B.words content)
    putStrLn (show len ++ "  " ++ arg)