line-mode
read-num
256
range
    pop
    dup2
    odd
        6
        *
        2
        +
    f4
    half
m6
catenate #(elem+list)
1
index
binary #(num to list)
    not
m1
binary #(list to num)