! Combinators for easy n^2 operations USING: math.matrices ; : cross-map ( seq1 seq2 quot -- seq ) [ cross-zip concat ] dip { } assoc>map ; : cross-each ( seq1 seq2 quot -- ) [ cross-zip concat ] dip assoc-each ;