`newalg'
--------

newalg(DEFPOLY)
     :: `root' $@$r@8@.$9$k(J.

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

   * DEFPOLY $@$rDj5AB?9`<0$H$9$kBe?tE*?t(J (`root') $@$r@8@.$9$k(J.
   * DEFPOLY $@$KBP$9$k@)8B$K4X$7$F$O(J, *Note $@Be?tE*?t$NI=8=(J::.

     [0] A0=newalg(x^2-2);
     (#0)

$@;2>H(J
     `defpoly'

