/* wxMaxima 0.7.2 http://wxmaxima.sourceforge.net
Maxima 5.12.0 http://maxima.sourceforge.net
Using Lisp GNU Common Lisp (GCL) GCL 2.6.8 (aka GCL)
Distributed under the GNU Public License. See the file COPYING.
Dedicated to the memory of William Schelter.
This is a development version of Maxima. The function bug_report()
provides bug reporting information.

(%i1) fat1(n):=n!;

(%i2) fat1(5);

(%i3) fat1(30);

(%i4) fat2(n):=block([t:1,i], for i:1 thru n do t:t*i, t);

(%i5) fat2(5);

(%i6) [t,i];

(%i7) fat3(n):=block([], t:1, for i:1 thru n do t:t*i, t);

(%i8) fat3(5);

(%i9) [t,i];

(%i10) fpprec;

(%i11) block([fpprec:100], bfloat(%pi));

(%i12) set_display(ascii);

(%i13) %o11;

(%i14) fpprec;

(%i15) piprec(n):=block([fpprec:n], bfloat(%pi));

(%i16) piprec(1000);

(%i17) raz1maisx(x,n):=block([t:x,i], for i:1 thru n do t:(1/(1+t)), t);

(%i18) raz1maisx(x,1);

(%i19) raz1maisx(x,3);

(%i20) raz1maisx(x,6);

(%i21) raz1maisxdebug(x,n):=block([t:x,i], for i:1 thru n do (t:(1/(1+t)),display(t)), t);

(%i22) raz1maisxdebug(x,6);

(%i23)