: list>cursors ( list -- seq ) zero>> next>> V{ } clone [ '[ [ next>> ] [ _ push ] [ last? not ] tri ] loop ] keep nip ; : list>sequence ( list -- seq ) list>cursors [ value>> ] map ; : list>indexes ( list -- seq ) list>cursors [ index>> ] map ;