hi robert argument for: your program is nice program. but I can not find where to use. you shoud teach us where to use it,more precisely. In mathematica,Distribute[{{a,b,c},{a,b,c}},List] is often useful,I think but we obtain same result,outermap("[",[a,b,c],[a,b,c]); nflatten(%,1). gosei