:: axb( seq1seq2--seq-of-seq)
SYMBOL: x f x set
SYMBOL: y f y set
SYMBOL: vector V{} clone vector set
seq1 [ x set seq2 [ y set x get y get 2array vector get swap suffix vector set
] each ] each
vector get >array ;! Imustbereinventingthewheelhere,sinceit'sbasicallyadoubleforloop.actuallyexactlyadoubleforloop.pleaseannotatewiththemap-likecombinatorthatI'vemissed.thanks:)