length
range1
@1
    7
    divides
m2
compress
m:
    -32
    divmod
        16
        +
        sign
        negate
    t4
    over
    !=
    @7
    thousand
    @4
    /
    @1
    @2
    5
    make-array
}
sort #(list)
m:
    3
    drop
    show-comma
    40
    tuck
    inc
    10