dup
read-nums
sort #(list)
reverse
m:
    show
    split
    @2
    inc
    show
    itemize
    join