need help with a simple predicate

[9078]

I need to create the predicate which would turn the function to an array of permutations.

-? perm(a(b(c)),T).

should return:

T=[a,b,c]
T=[b,c,a]
T=[b,a,c]. etc.

Can someone help me.....