10
thousand
range1
    digits
        10
        logical-or
    b2
    sort #(list,block)
    group
m5
        sum
        not
        @1
        length
        odd
        logical-or
    m6
    sum
    2
    <
f5
m:
        length
        negate
    b2
    sort #(list,block)
    flatten
    left-uncons
    catenate #(list+elem)
    map-show
    show-line