m:
    7
    divides
    counter
    -32
    base #(num to list)
    reverse
        16
        +
    m2
    times #(list)
}
    length
f1
    extract-array
    thousand
    swap
    /
b4
sort #(list,block)
    tails
        product
        sign
        negate
    m3
b3
sort #(list,block)
m:
    show-comma
    40
    tuck
    inc
    10