`asq', `af'
-----------

asq(POLY)
     :: ξ 1 ѿ¿༰̵ʿʬ
af(POLY,ALGLIST)
     :: ξ 1 ѿ¿༰ΰʬ

RETURN
     ꥹ
POLY
     ¿༰
ALGLIST
     `root' Υꥹ

   *  `sp' Ƥ. ޤ `gr' ɬפǤ.
   * `root' ޤޤʤȡƤӽФ®Ǥ뤬,
     `root' ޤˤ, `gcda()' ư뤿ᤷФжˤƻ
     ֤.
   * `af()' , Τλ, ʤ 2 , `root' ΥꥹȤλ
     ꤬ɬפǤ.
   *  2 ꥹȤʤ `[]' ξ, `fctr()' ƤӽФ. 
   * `alglist' ǻꤵ `root' , 줿Τۤ
     ʤФʤʤ.
   * ̤, ̵̾ʿʬ, ʬƱ [, ʣ] Υꥹ
     Ǥ.
   * ʣ٤᤿ҤƤѤ, POLY ܤΰ㤤.

     [99] asq(-x^4+6*x^3+(2*alg(0)-9)*x^2+(-6*alg(0))*x-2);
     [[-x^2+3*x+(#0),2]]
     [100] af(-x^2+3*x+alg(0),[alg(0)]);
     [[x+(#0-1),1],[-x+(#0+2),1]]


     `gcda', `sqfr'

