7
    divides
    counter
    *
        @0
        -32
        base #(num to list)
        reverse
            16
            +
        m2
    f6
m6
    extract-array
    sign
    tuck
        thousand
        @3
        /
    f3
    pair
b6
sort #(list,block)
reverse
m:
    show-comma
    40
    tuck
    inc
    10