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