Как отделить действительную и мнимую часть символьного выражения?

expand((a+b*I)^7);
a^7+7*I*a^6*b-21*a^5*b^2-35*I*a^4*b^3+35*a^3*b^4+21*I*a^2*b^5-7*a*b^6-I*b^7

evalc(%);
a^7-21*a^5*b^2+35*a^3*b^4-7*a*b^6+I*(7*a^6*b-35*a^4*b^3+21*a^2*b^5-b^7)

как ето реализовать-пока незнаю нада подумать но у самогу курсовик горит такчто прости помочь немогу)