行カウント ref: http://qiita.com/items/de39d121ad61594c45dc

file0.txt

import Control.Monad
import qualified Data.ByteString.Lazy.Char8 as L
import System.Environment

main :: IO ()
main = go False =<< getArgs where
  go _ ("-f": rest) = go True rest
  go _ []    = print . gyo =<< L.getContents
  go _ ["-"] = print . gyo =<< L.getContents
  go f files = forM_ files $ \file -> do
    ln <- return . gyo =<<  L.readFile file
    if f
      then putStrLn $ file ++ " " ++ show ln
      else putStrLn $ show ln ++ " " ++ file

gyo :: L.ByteString -> Int
gyo = length . L.lines