Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/libraries/fps/tests/lazyio.hs
import qualified Data.ByteString.Lazy as L import System.IO import System.Environment main = do n <- getArgs >>= readIO . head L.hGetContentsN n stdin >>= L.hPut stdout . L.filterNotByte 101 -- main = L.hGet stdin 10000000000 >>= print . L.length