sum
4
%
3
range1
3
copies
transpose
@0
2dup
        +
    z1
z2
3
make-array
get
    unwords
    show-line
m2