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

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

main = wc