10
thousand
range
m:
    digits
    permutations
    sort #(list)
    2
    step
        head
    f1
        dup
        reverse
        =
    f3
    1
    take
        map-show
        new-line
    m2