Paste: start-all

: start-all ( subseq seq -- iseq )
  [ 2dup start 
    [ dup ] 
    [ dup , 1 + 3dup start* nip ]
    [ ] while
    3drop
  ] { } make ;