`newalg'
--------

newalg(DEFPOLY)
     :: `root' .

RETURN
     Ū (`root')
DEFPOLY
     ¿༰

   * DEFPOLY ¿༰ȤŪ (`root') .
   * DEFPOLY Ф¤˴ؤƤ, *Note Ūɽ::.

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


     `defpoly'

