read-num
sub-power-of-2
binary #(num to list)
@1
dec
power-of-2
base #(list to num)
pop-b
@4
range
m:
    space
    times #(list)
    push-b
    @0
    shift-right
    push-b
    |
    binary #(num to list)
    reverse
    push-a
    tail
    group
    select
    unwords
    show-line