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