line-mode
( "nt" )
and
length
4
%
w( "not" "n/2" )
group
    inits
m1
fold-product
get
    extract-array
m1
    show-space
m1
"x"
catenate #(list+list)