line-mode
ascii-digits
diff #(list-list)
save-b
@0
read-nums
    abs
m1
save-c
left-uncons
rrot
{
    4
    %
    dec
        -
    b1
        *
    b1
        +
    b1
    3
    make-array
    get
    eval
}
zipwith
pop
show
push-b
"="
catenate #(list+list)
1
chunks
push-c
        show-space
    m1
t2
zip
right-cons