20
range1
m:
    sub-power-of-2
    @0
    range
    sum
    shift-left
    20
    power-of-2
    base #(num to list)
    sum
    binary #(num to list)
    reverse
    1
    show-space
    reverse
    select
    show-line