`newalg'
--------

newalg(DEFPOLY)
     :: `root' 𐶐.

RETURN
     㐔I (`root')
DEFPOLY
     

   * DEFPOLY `Ƃ㐔I (`root') 𐶐.
   * DEFPOLY ɑ΂鐧ɊւĂ, *Note 㐔I̕\::.

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

Q
     `defpoly'

