allocatemem(20*10^6);
do(p,a)=thue(thueinit(p), a);
do(x^4 - 13*x^3 - 172*x^2 - 13*x + 1, 9)
do(x^3 - 2, 2)
do(x^6 - 2, 2638)
do(x^3 + x^2 - 43690*x - 3529208, -3572896)
do(x^4-x^3+x^2-x+1,1)
do(x^3-48,320)
do(x^7-401,88)

thue(thueinit(x^3-100,1), 25)

do((x+1)^2*(x^2+2), 12)
do((4*x+1)^2*(x^2+2), 75)

thueinit(x^0)

do(23*x^4 + 40*x^3 - 600*x^2 + 160*x + 368, -144)

do(x^3+92*x+1,3^3)
do(x^3-18*x^2+81*x+1,3^3)
do((x^4+1)^2,4)
