file = "/etc/passwd"

lineCount = do
  s <- readFile file
  return (length (lines s))

charCount = do
  s <- readFile file
  return (length s)

main = do
  ls <- lineCount
  putStrLn (show ls ++ " lines")
  cs <- charCount
  putStrLn (show cs ++ " characters")