empty-list
pop-b
read-nums
pop-a
lowercase-alphabet
m:
    push-a
    min
    copies
    tuck-b
    catenate #(list+list)
    push-a
    is-sorted #(list)
        pop-b
        push-a
        extract-array
        -
        @1
    b5
    {
        show-line
        @10
        times #(list)
        push-a
        extract-array
        over
        -
    }
    pair
    get
    eval
    pair
    pop-a