# topolyroot() convert polymonial to polymonial root holder polyroots(), 
polyroots(a,b,x) is holder of polymonial root of a and b, where a and b are roots of polymonial,
it can be activated by activate();


topolyroot(p_,x_) := block(pp:=solve(p,x), polyroots(left(pp),right(pp)) );

topolyroot(p_):=topolyroot(p,x);