5
binary #(num to list)
swap
read-num
repeat-product
save-a
m:
    pop-b
    push-a
        push-b
            |
        z1
        product
        dup
    m5
    ( " :" )
    select
    new-line