******** unf38 **********

	poly = 0;
	for(i=n; i>=0; i-- )
		poly = x * poly + $a sub i$