import qualified Data.ByteString as BS

main = do
  putStrLn "reading"
  bs <- BS.readFile "/home/markasoftware/largefile.dat"
  putStrLn $ "read done, length " ++ show (BS.length bs)