large := proc(a,n)
#(n=20,  a=1,i)
 a*10^(-200)*x^n+10^100*x^(n-1)+10^200;
end: