buffer-bulk.hs

import System.Environment
import Data.List

splitN :: Int -> [a] -> [[a]]
splitN n [] = []
splitN n xs =
  [y] ++ (splitN n ys)
  where (y, ys) = splitAt n xs

main = do
  (n:_) <- getArgs
  contents <- getContents
  mapM_ putStr $
    intersperse "-- \n" $
      map unlines (splitN (read n) (words contents))