10
dup
thousand
crange
    digits
        counter
        -
    m2
    is-sorted #(list)
f4
unlines