( "\xba:\x0f" )
    range1
    counter
    combinations
            power-of-2
        m1
        sum
        inc
    m4
    sort #(list)
m6
pop-d
read-nums
m:
    dup2
    negate
    &
    /
    save-a
    empty-list
    push-d
        over
        length
        not
                push-a
                divides
            f2
        f2
        logical-or
    b6
    each
    right-cons
    head
    push-a
    /
    show-line