read-num
pop-a
11797
digits
reverse
m:
    binary #(num to list)
    ( " P" )
    select
        push-a
        copies
    m2
    show-line
    push-a
    copies