`nmono'
-------

nmono(RAT)
     :: RAT $@$NC19`<0$N9`?t(J.

RETURN
     $@<+A3?t(J
RAT
     $@M-M}<0(J

   * $@B?9`<0$rE83+$7$?>uBV$G$N(J 0 $@$G$J$$78?t$r;}$DC19`<0$N9`?t$r5a$a$k(J.
   * $@M-M}<0$N>l9g$O(J, $@J,;R$HJ,Jl$N9`?t$NOB$,JV$5$l$k(J.
   * $@H!?t7A<0(J (*Note $@ITDj85$N7?(J::) $@$O(J, $@0z?t$,2?$G$"$C$F$bC19`$H$_$J$5(J
     $@$l$k(J. (1 $@8D$NITDj85$HF1$8(J. )

     [0] nmono((x+y)^10);
     11
     [1] nmono((x+y)^10/(x+z)^10);
     22
     [2] nmono(sin((x+y)^10));
     1

$@;2>H(J
     `vtype'

