: start-all ( subseq seq -- iseq )
  0 
  [ 3dup start* nip dup ]
  [ [ 1 + ] keep ]
  [ ] produce 
  [ 3drop ] dip ;