slavapestov/factor — comment on commit d6190e9ef76809b27d4e18f098fbf5f5fbbdeae1
File: basis/unicode/breaks/breaks.factor line 253
By jckarter:

If there were a `` lazy sequence, `-index` could be factored out:

```factor
: -index ( seq quot -- seq' quot' )
[ dup length iota ] [ '[ first2 @ ] ] bi* ; inline

: each-index ( ... )
-index each ; inline

: find-index ( ... )
-index find ; inline
```