<pre>100
double
range1
m:
    save-a
    range1
        tuck-a
        divides
    f2
    length
    even
    @1
        100
        power-of-2
        +
    m3
    product
    @2
    base #(num to list)
    map-show
    tail
    empty-list
    left-cons
    ( &quot;+-&quot; )
    10
    times #(list)
    zip
    reverse
    &quot;x&quot;
    &quot;^&quot;
    64
    range
    map-show
    cartesian-product
    cartesian-product
    @4
        take
    z1
    swap
    zip
    show-line
    drop
</pre>