value:xValue
| aNewPolyArray grade |
	aNewPolyArray:=Array new: grade.
grade-1 to:0 do:[:i| aNewPolyArray at:i put:(xValue at:i)*(grade at:i)+ aNewPolyArray].

^(Polynom coefficients: aNewPolyArray) reduce.