*removed

let combinator seq1 seq2 =

seq{for i in seq1 do

for j in seq2 do

yield i,j}

let A = {1..3}

let B = {4..6}

let C = seq {for a in A do
for b in B do
yield (a, b)}

should get you what you want