import Char
import System
main = do
    args <- getArgs
    mapM_ count args

count name = do
    file <- readFile name
    let ls = length $ filter (=='\n') file
        cs = length $ filter (not . isSpace) file
    putStrLn $ "user " ++ name ++ ": " ++ show ls ++ " " ++ show cs