<pre>line-mode
ascii-digits
diff #(list-list)
&quot;=&quot;
catenate #(list+list)
1
chunks
@4
read-nums
    abs
m1
2dup
        show-space
    t1
z2
rrot
left-uncons
rrot
{
            -
        b1
            *
        b1
            +
        b1
    m6
    left-uncons
    4
    %
    dec
    get
    eval
}
zipwith
catenate #(elem+list)
map-show
catenate #(list+list)
</pre>