For future reference you might like to learn about ratweight; an example
(C1) ratweight(x,1);
(D1) [x, 1]
(C2) p : rat((x+1)^10)$
(C3) p, ratwtlvl : 1;
(D3)/R/ 10 x + 1
(C4) p, ratwtlvl : 2;
2
(D4)/R/ 45 x + 10 x + 1
(C5) p, ratwtlvl : 3;
3 2
(D5)/R/ 120 x + 45 x + 10 x + 1
(C6)
Although it seems that this idea isn't sufficient for your
current application.
Barton