Paste: enumerate

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