f＃生成交叉连接两个列表

Question

在f＃中，是否有更有效的方法为两个任意长度的列表中的元素组合生成交叉连接或排列？

listA
|> Seq.collect (fun a -> listB |> Seq.map (fun b -> a,b))

WHERE ...

listA = [1;2]
listB = ['a';'b']
Result = [(1,'a');(1,'b');(2,'a');(2,'b')]