[问题] 请问mathematica中如何提取多项式的因子？

[welite]

-3591176434993748384348496449605057311 -
931317410939396433823492399456035672 c1 -
9952543970861457213652467061541331498 c2 +
4048090288340722001114952049169242965 c3 +
397164398434703247826095886842412575 px +
1066996793775684645797090668168460265 c2 px -
460328625674890624429065259310152110 c3 px +
15946921216526762184564517273794735 py -
35440141634773840046659693982601120 c2 py +
22495307563938104656216195952976885 c3 py +
46746177228030459461263589208063870 pz -
36428604512265070024530336222388650 c3 pz -
336574847215337605742315849219352600 qx -
856298637445659071245670123987864572 c2 qx +
381082557957344248171016160868208816 c3 qx +
20336384809932402456728418013439130 qy +
79580434879454594169496332062731380 c2 qy +
46111843705049866684186439724551130 c3 qy -
754447730345013048895996548762560 qz -
54862758834533020637102302666976820 c2 qz +
109847021021547323599497109075146120 c3 qz
对上面的多项式如何利用mathmatica中CoefficientList函数获得{1, c1, c2, c3, px, c2 px, c3 px, py, c2 py, c3 py, pz, c3 pz, qx,
c2 qx, c3 qx, qy, c2 qy, c3 qy, qz, c2 qz, c3 qz)