`algv'
------

algv(I)
     :: `alg(I)' $@$KBP1~$9$kITDj85$rJV$9(J.

RETURN
     $@B?9`<0(J
I
     $@@0?t(J

   * $@B?9`<0(J `t#I' $@$rJV$9(J.
   * `t#I' $@$O%f!<%6$,D>@\F~NO$G$-$J$$$?$a(J, `algv(I)' $@$H$$$&7A$GF~NO$9(J
     $@$k(J.

     [4] var(defpoly(A0));
     t#0
     [5] t#0;
     syntax error
     0
     [6] algv(0);
     t#0

$@;2>H(J
     `newalg', `defpoly', `alg'

