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

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