enumerate
    last
    42
    =
f3
m:
    head
    32
    divmod
        15
        -
    t2
    swap
    negate
    pair
}
    extract-array
    sign
    tuck
        thousand
        @3
        /
    f3
    pair
b6
sort #(list,block)
reverse
m:
    show-comma
    40
    tuck
    inc
    new-line