`newalg'
--------

newalg(DEFPOLY)
     :: Creates a new root.

RETURN
     algebraic number (root)

DEFPOLY
     polynomial

   * Creates a new root (algebraic number) with its defining polynomial
     DEFPOLY.

   * For constraints on DEFPOLY, *Note Representation of algebraic
     numbers::.

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

Reference
     *Note `defpoly': defpoly

