Paste: x-y-table

:: axb ( seq1 seq2 -- 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 ;


! I must be reinventing the wheel here, since it's basically a double for loop. actually exactly a double for loop. please annotate with the map-like combinator that I've missed. thanks :)