Mathematica - manipulate

Imam en manjši problem.
Ustvaril bi rad manipulate, tako da bi lahko vnesel poljuben polinom npr: (x - 2)*x ali pa kaj podobnega.

Koda, ki sem jo jaz ustvaril sicer deluje, če zadeve ne shranim v cdf:

Manipulate[
 Plot[a, {x, -6, 6}, ImageSize -> 400],
 {{a, -3 x - 2 x^2 + x^3, "Polinoml"}}
 ]

Kako pa bi naredil, da bi delalo tudi v cdf-ju, oz. kako bi shranil vnešen polinom kot neko funkcijo f[x_], tako da bi se nekje na vrhu okna, ki ga ustvari manipulate izpisalo še koliko je f[0]?