lazyio-forkIO-unbalanced.hs

-- ghc --make -O2 -prof -auto-all -caf-all -fforce-recomp lazyio-forkIO-unbalanced.hs
module Main where
import Data.ByteString.Lazy (ByteString)
import qualified Data.ByteString.Lazy.Char8 as BS (readFile, putStr, unpack)
import System.Environment (getArgs)
import Control.Concurrent (forkIO)

main :: IO ()
main = do
  (f:_) <- getArgs
  c <- BS.readFile f
  forkIO $ BS.putStr c
  putStr $ BS.unpack c