1   realprecision = 19 significant digits
2   echo = 1 (on)
3? gettime;intnum(x=0,Pi,sin(x))
42.000000000000000000
5? intnum(x=0,4,exp(-x^2))
60.8862269117895689458
7? intnum(x=1,[1],1/(1+x^2))-Pi/4
80.E-19
9? intnum(x=-0.5,0.5,1/sqrt(1-x^2))-Pi/3
100.E-19
11? intnum(x=0,[[1],-I],sin(x)/x)-Pi/2
120.E-19
13? \p38
14   realprecision = 38 significant digits
15? prod(k=1,10,1+1/k!)
163335784368058308553334783/905932868585678438400000
17? prod(k=1,10,1+1./k!)
183.6821540356142043935732308433185262946
19? Pi^2/6*prodeuler(p=2,10000,1-p^-2)
201.0000098157493066238697591433298145196
21? prodinf(n=0,(1+2^-n)/(1+2^(-n+1)))
220.33333333333333333333333333333333333320
23? prodinf(n=0,-2^-n/(1+2^(-n+1)),1)
240.33333333333333333333333333333333333320
25? solve(x=1,4,sin(x))
263.1415926535897932384626433832795028842
27? sum(k=1,10,2^-k)
281023/1024
29? sum(k=1,10,2.^-k)
300.99902343750000000000000000000000000000
31? 4*sumalt(n=0,(-1)^n/(2*n+1))
323.1415926535897932384626433832795028842
33? 4*sumalt(n=0,(-1)^n/(2*n+1),1)
343.1415926535897932384626433832795028842
35? sumdiv(8!,x,x)
36159120
37? suminf(n=1,2.^-n)
380.99999999999999999999999999999999999999
39? 6/Pi^2*sumpos(n=1,n^-2)
401.0000000000000000000000000000000000000
41? getheap
42[19, 158]
43? print("Total time spent: ",gettime);
44Total time spent: 34
45? \q
46