module Main where
import Data.List
import System.IO
import System.Environment

main = do
 (fn:ls:_) <- getArgs
 flip mapM_ ls $ \ec -> do
 	fc <- readFile fn
	let v = foldl' (\n cc -> if ec == cc then (n+1) else n ) 0 fc
	putStrLn $ "for character " ++ show ec ++ " count is " ++ show v
 putStrLn $ "all done"