`gcda'
------

gcda(POLY1,POLY2)
     :: $@Be?tBN>e$N(J 1 $@JQ?tB?9`<0$N(J GCD

RETURN
     $@B?9`<0(J
POLY1, POLY2
     $@B?9`<0(J

   * `sp' $@$GDj5A$5$l$F$$$k(J.
   * 2 $@$D$N(J 1 $@JQ?tB?9`<0$N(J GCD $@$r5a$a$k(J.
   * $@%0%l%V%J4pDl$rMQ$$$F$$$k(J. $@=>$C$F(J `gr' $@$bFI$_9~$s$G$*$/I,MW$,$"$k(J.

     [52] X=simpalg((x-A0-2)^2*(x+A0-1)^3);
     x^5+(#0-7)*x^4+(-8*#0+15)*x^3+(17*#0-13)*x^2+(-6*#0+14)*x+(2*#0-2)
     [53] Y=simpalg((x-A0-2)^3*(x+A0-1)^2);
     x^5+(-#0-8)*x^4+(4*#0+21)*x^3+(#0-14)*x^2+(-12*#0-10)*x+(-2*#0-4)
     [54] gcda(X,Y);
     grm undefined
     stopped in gcda at line 357 in file "/usr/local/lib/asir/sp"
     357             L = grm(ML,cons(var(P1),VL));
     (debug) quit
     return to toplevel
     [54] load("gr")$
     [98] gcda(X,Y); 
     -x^4+6*x^3+(2*#0-9)*x^2+(-6*#0)*x-2

$@;2>H(J
     `gr', `asq'

