`defpoly'
---------

defpoly(ALG)
     :: `root' $B$NDj5AB?9`<0$rJV$9(B.

RETURN
     $BB?9`<0(B

ALG
     $BBe?tE*?t(B (`root')

   * `root' ALG $B$NDj5AB?9`<0$rJV$9(B.

   * `root' $B$r(B `#N' $B$H$9$l$P(B, $BDj5AB?9`<0$N<gJQ?t$O(B `t#N' $B$H$J$k(B.

     [1] defpoly(A0);
     t#0^2-2

$B;2>H(B
     *Note `newalg': newalg, *Note `alg': alg, *Note `algv': algv

