line-mode
2
take
64
power-of-2
save-b
@1
words
extract-array
nip-a
    read-nums
    last
    tuck-b
    /
t4
push-a
head
43
-
popcnt
    +
b1
    -
b1
    &
b1
    |
b1
    ^
b1
5
make-array
get
eval
dec
/
show
catenate #(list+list)