`deg', `mindeg'
---------------

deg(POLY,VAR)
     :: POLY $@$N(J, $@JQ?t(J VAR $@$K4X$9$k:G9b<!?t(J.
mindeg(POLY,VAR)
     :: POLY $@$N(J, $@JQ?t(J VAR $@$K4X$9$k:GDc<!?t(J.

RETURN	
     $@<+A3?t(J
POLY
     $@B?9`<0(J
VAR
     $@ITDj85(J

   * $@M?$($i$l$?B?9`<0$NJQ?t(J VAR $@$K4X$9$k:G9b<!?t(J, $@:GDc<!?t$r=PNO$9$k(J.
   * $@JQ?t(J VAR $@$r>JN,$9$k$3$H$O=PMh$J$$(J.
   * VAR $@$,<gJQ?t$G$J$$;~(J, VAR $@$,<gJQ?t$N>l9g$KHf3S$7$F8zN($,Mn$A$k(J.

     [0] deg((x+y+z)^10,x);
     10
     [1] deg((x+y+z)^10,w);
     0
     [75] mindeg(x^2+3*x*y,x);
     1

