main = do
  --content <- readFile fileName
  content <- S.readFile fileName
  let
    startAccum = take 6 content
    pieces = chunksOf 20000 content
    piece = concat (take 1 pieces)
  mapM_ putCharF startAccum
  cutGenerate piece startAccum
main = do
  --content <- readFile fileName
  content <- S.readFile fileName
  let
    startAccum = take 6 content
    pieces = chunksOf 20000 content
    piece = concat (take 1 pieces)
  mapM_ putCharF startAccum
  cutGenerate piece startAccum
main = do
  --content <- readFile fileName
  content <- S.readFile fileName
  let
    startAccum = take 6 content
    pieces = chunksOf 20000 content
    piece = concat (take 1 pieces)
  mapM_ putCharF startAccum
  cutGenerate piece startAccum