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

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

RETURN
     $@B?9`<0(J
ALG
     $@Be?tE*?t(J (`root')

   * `root' ALG $@$NDj5AB?9`<0$rJV$9(J.
   * `root' $@$r(J `#N' $@$H$9$l$P(J, $@Dj5AB?9`<0$N<gJQ?t$O(J`t#N' $@$H$J$k(J.

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

$@;2>H(J
     `newalg', `alg', `algv'

