: enumerate ( seq -- newseq ) #! Returns a sequence where each element and its index 0 swap [ [ 1+ ] dip swap [ 2array ] keep swap ] { } map-as swap drop ;