main = do
  l <- countLines "/etc/passwd"
  putStrLn (show l)

countLines f = do
  x <- readFile f
  return (length (lines x))