tcl : get all elements combinations from an input list of lists

[pierre13]

Hello,

I would like to implement a Tcl code to get all the combination of elements of an input list of lists, such as :

set combi_list { {a b {c1 c2}} {d {e1 e2 e3} f g} {h {i1 i2}} }

I would like to get the combinations :
a/b/c1
a/b/c2
d/e1/f/g
d/e2/f/g
d/e3/f/g
h/i1
h/i2

Of course, the number of lists in the main list is variable such as the number of elements !!
Thanks for helping me !!

P.