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

defpoly(ALG)
     :: `root' ¿༰֤.

RETURN
     ¿༰
ALG
     Ū (`root')

   * `root' ALG ¿༰֤.
   * `root'  `#N' Ȥ, ¿༰μѿ`t#N' Ȥʤ.

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


     `newalg', `alg', `algv'

