read-num
rrange
enumerate
m:
    extract-array
        power-of-2
    t1
    |
    binary #(num to list)
    reverse
    ( " X" )
    select
    show-line