read-nums
sort #(list)
reverse
pop-a
@2
m:
    push-a
    index
    inc
    show-line