cutGenerate piece accum = do
  setStdGen (mkStdGen 2015) -- test case
  g <- getStdGen
  let 
    rands = randomRs (0.0,1.0) g :: [Double]
    sample7s = [chunks n piece | n <- ns]
  --mapM_ putCharF (generate sample7s accum rands)
  putStrLn (take 3000 (generate sample7s accum rands))
  --putStrLn ""
cutGenerate piece accum = do
  setStdGen (mkStdGen 2015) -- test case
  g <- getStdGen
  let 
    rands = randomRs (0.0,1.0) g :: [Double]
    sample7s = [chunks n piece | n <- ns]
  --mapM_ putCharF (generate sample7s accum rands)
  putStrLn (take 3000 (generate sample7s accum rands))
  --putStrLn ""
cutGenerate piece accum = do
  setStdGen (mkStdGen 2015) -- test case
  g <- getStdGen
  let 
    rands = randomRs (0.0,1.0) g :: [Double]
    sample7s = [chunks n piece | n <- ns]
  --mapM_ putCharF (generate sample7s accum rands)
  putStrLn (take 3000 (generate sample7s accum rands))
  --putStrLn ""