file = "/etc/passwd"

lineCount = length (lines contents)
charCount = length contents

{- This cannot be done in Haskell! -}
contents :: String
contents = do
  s <- readFile file
  s

main = do
  putStrLn (show lineCount ++ " lines")
  putStrLn (show charCount ++ " characters")