lc.hs

import System.Environment

contains :: String -> Int
contains s = if (elem 'e' s) then 1 else 0

main = do
   args <- getArgs
   content <- readFile (args !! 0)
   let ws  = concatMap words $ lines content
       matchCount =  map contains ws in
    print $ sum matchCount