[Haskell-cafe] How to do the "permutation and combination" thing?

[Magicloud Magiclouds]

Hi,
  For example, I have this:
list1 = [a, b, c]
list2 = [d, e, f]
list3 = [g, h, i]
  Now I want:
[ [(a, d, g), (b, e, h), (c, f, i)]
, ... ] -- a list that contains all the combinations.
  How to do it pretty? Thanks.
-- 
竹密岂妨流水过
山高哪阻野云飞