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:
    "("
    swap
    show-comma
    ")"
    new-line