read-num
double
dec
save-a
3
*
rrange
enumerate
    min
    dup
    odd
        dup
    f1
m5
save-b
m:
    itemize
    push-b
    cartesian-product
        sum
        dup
        push-a
        >=
        *
        odd
    m6
    binary #(list to num)
    binary #(num to list)
    reverse
    "#"
    show-space
    reverse
    select
    show-line