! hopefully this will make its way into the sequences vocabulary

! splits a sequence into a sequence of sequences of length n, with any remaining elements appended to the end

! feel free to post improvements

:: nsplit ( seq n -- seq )
  seq [ dup length n >= ] [ n cut swap ] produce
  swap append ;