Mathematica выделить коэффициенты

Есть выражение

а = (x1*e^(-i*n) + x11*e^(i*n) + x2*e^(i*2*n) + x22*e^(-i*2*n) + ......)^3

Раскрываю с помощью

a=expand(a)

Получаю что-то вроде

z11^3*e^(3*i*n) + 3*z11^2*z10*e^(12*i*n) + 3*z11^2*z11*e^(-9*i*n) + 3*z1^2*z13*e^(15*i*n)

Вопрос, как сгруппировать результат и получить вид

(...)*e^(-i*n) + (...)*e^(i*n) + (...)*e^(i*2*n) + (...)*e^(-i*2*n)...?

С помощью collect не получается, или я что-то не так делаю.