5
binary #(num to list)
4
repeat-product
save-a
m:
    pop-b
    push-a
        push-b
            ^
        z1
        max
        ( "X " )
        get
    m6
    show-line