100
double
range1
m:
    save-a
    range1
        tuck-a
        divides
    f2
        100
        shift-left
        inc
    m3
    product
    100
    power-of-2
    base #(num to list)
    map-show
    init
    length
    odd
    ( "-+" )
    10
    times #(list)
    empty-list
    left-cons
    drop
    "x"
    "^"
    64
    range
    map-show
    cartesian-product
    cartesian-product
    enumerate
    empty-list
    @14
    right-cons
    rot
    zip
        extract-array
        take
    z2
    show-line