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

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