import IO
    
main = do
  l <- countLinesFile "/etc/passwd"
  putStrLn (show l)
    
countLinesFile f = do
  h <- openFile f ReadMode
  hCountLines h
    
hCountLines h = do
  x <- hGetContents h
  return (length (lines x))