safe-lazy-io-0.1: examples/std-lazy-io/count-lines-good.hs

import System.Environment
main = print . sum =<< mapM ((return' . length . lines =<<) . readFile) =<< getArgs
  where return' x = x `seq` return x