`defpoly'
---------

defpoly(ALG)
     :: `root' ̒`Ԃ.

RETURN
     
ALG
     㐔I (`root')

   * `root' ALG ̒`Ԃ.
   * `root'  `#N' Ƃ, `̎ϐ`t#N' ƂȂ.

     [1] defpoly(A0);
     t#0^2-2

Q
     `newalg', `alg', `algv'

