`newalg'
--------

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

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

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

   * DEFPOLY $B$rDj5AB?9`<0$H$9$kBe?tE*?t(B (`root') $B$r@8@.$9$k(B.

   * DEFPOLY $B$KBP$9$k@)8B$K4X$7$F$O(B, *Note $BBe?tE*?t$NI=8=(B::.

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

$B;2>H(B
     *Note `defpoly': defpoly

