data Stats = Stats !Int !Int !Int

wcf :: Stats -> String -> Stats
wcf stats []                    = stats
wcf (Stats cc w lc) (' '  : xs) = wcf (Stats (cc+1) (w+1) (lc  ) ) xs
wcf (Stats cc w lc) ('\t' : xs) = wcf (Stats (cc+1) (w+1) (lc  ) ) xs
wcf (Stats cc w lc) ('\n' : xs) = wcf (Stats (cc+1) (w+1) (lc+1) ) xs
wcf (Stats cc w lc) ( x   : xs) = wcf (Stats (cc+1) (w  ) (lc  ) ) xs

wc :: IO()
wc = do
    putStr ( "Filename: " )
    name <- getLine
    contents <- readFile name
    let (Stats cc w lc) = wcf (Stats 0 0 0) contents
    putStrLn ( "The file " ++ name ++ " has " )
    putStrLn ( show cc ++ " chars " )
    putStrLn ( show w  ++ " words " )
    putStrLn ( show lc ++ " lines." )

main = wc