import IO
import System (getArgs)
    
main = do
  args <- getArgs
  let f = head args
  output f
    
output f = do
  l <- countLinesFile f
  putStrLn (f ++ ": " ++ show l)
    
{- definitions of countLinesFile and hCountLines as before -}