main = do putStrLn "File:" f <- getLine c <- readFile f let a=sum[1|_<-c] putStr("Caracteres:"++show(a))
File:loqueseaCaracteres:XX