`simpalg'
---------

simpalg(RAT)
     :: $@M-M}<0$K4^$^$l$kBe?tE*?t$r4JC12=$9$k(J.

RETURN
     $@M-M}<0(J
RAT
     $@M-M}<0(J

   * `sp' $@$GDj5A$5$l$F$$$k(J.
   * $@?t(J, $@B?9`<0(J, $@M-M}<0$K4^$^$l$kBe?tE*?t$r(J, $@4^$^$l$k(J `root' $@$NDj5AB?(J
     $@9`<0$K$h$j4JC12=$9$k(J.
   * $@?t$N>l9g(J, $@J,Jl$,$"$l$PM-M}2=$5$l(J, $@7k2L$O(J `root' $@$NB?9`<0$H$J$k(J.
   * $@B?9`<0$N>l9g(J, $@3F78?t$,4JC12=$5$l$k(J.
   * $@M-M}<0$N>l9g(J, $@J,JlJ,;R$,B?9`<0$H$7$F4JC12=$5$l$k(J.

     [7] simpalg((1+A0)/(1-A0));
     simpalg undefined
     return to toplevel
     [7] load("sp")$
     [46] simpalg((1+A0)/(1-A0));
     (-2*#0-3)
     [47] simpalg((2-A0)/(2+A0)*x^2-1/(3+A0));
     (-2*#0+3)*x^2+(1/7*#0-3/7)
     [48] simpalg((x+1/(A0-1))/(x-1/(A0+1))); 
     (x+(#0+1))/(x+(-#0+1))

