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

asq(POLY)
     :: $@Be?tBN>e$N(J 1 $@JQ?tB?9`<0$NL5J?J}J,2r(J
af(POLY,ALGLIST)
     :: $@Be?tBN>e$N(J 1 $@JQ?tB?9`<0$N0x?tJ,2r(J

RETURN
     $@%j%9%H(J
POLY
     $@B?9`<0(J
ALGLIST
     `root' $@$N%j%9%H(J

   * $@$$$:$l$b(J `sp' $@$GDj5A$5$l$F$$$k(J. $@$^$?(J `gr' $@$bI,MW$G$"$k(J.
   * `root' $@$r4^$^$J$$>l9g$O@0?t>e$NH!?t$,8F$S=P$5$l9bB.$G$"$k$,(J,
     `root' $@$r4^$`>l9g$K$O(J, `gcda()' $@$,5/F0$5$l$k$?$a$7$P$7$P6K$a$F;~(J
     $@4V$,$+$+$k(J.
   * `af()' $@$O(J, $@4pACBN$N;XDj(J, $@$9$J$o$ABh(J 2 $@0z?t$N(J, `root' $@$N%j%9%H$N;X(J
     $@Dj$,I,MW$G$"$k(J.
   * $@Bh(J 2 $@0z?t$,6u%j%9%H$9$J$o$A(J `[]' $@$N>l9g(J, `fctr()' $@$,8F$S=P$5$l$k(J. 
   * `alglist' $@$G;XDj$5$l$k(J `root' $@$O(J, $@8e$GDj5A$5$l$?$b$N$[$IA0$NJ}$K(J
     $@Mh$J$1$l$P$J$i$J$$(J.
   * $@7k2L$O(J, $@DL>o$NL5J?J}J,2r(J, $@0x?tJ,2r$HF1MM(J [$@0x;R(J, $@=EJ#EY(J] $@$N%j%9%H(J
     $@$G$"$k(J.
   * $@=EJ#EY$r9~$a$?0x;R$NA4$F$N@Q$O(J, POLY $@$HDj?tG\$N0c$$$,$"$jF@$k(J.

     [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]]

$@;2>H(J
     `gcda', `sqfr'

