   echo = 1 (on)
? gettime;alias(ln,log)
? ln(2)
0.69314718055994530941723212145817656808
? for(x=1,5,print(x!))
1
2
6
24
120
? fordiv(10,x,print(x))
1
2
5
10
? forprime(p=1,30,print(p))
2
3
5
7
11
13
17
19
23
29
? forstep(x=0,Pi,Pi/12,print(sin(x)))
0.E-38
0.25881904510252076234889883762404832835
0.50000000000000000000000000000000000000
0.70710678118654752440084436210484903928
0.86602540378443864676372317075293618347
0.96592582628906828674974319972889736763
1.0000000000000000000000000000000000000
0.96592582628906828674974319972889736764
0.86602540378443864676372317075293618348
0.70710678118654752440084436210484903931
0.50000000000000000000000000000000000003
0.25881904510252076234889883762404832839
4.701977403289150032 E-38
? forvec(x=[[1,3],[-2,2]],print1([x[1],x[2]]," "));print(" ");
[1, -2] [1, -1] [1, 0] [1, 1] [1, 2] [2, -2] [2, -1] [2, 0] [2, 1] [2, 2] [3
, -2] [3, -1] [3, 0] [3, 1] [3, 2]  
? getheap
[4, 31]
? getrand
Vecsmall([815394335184717944, 4549279032150680234, 6773728374826070157, -237
0373754265190617, -7192197643876677099, 3146002372671609152, -37889119021821
81465, -3110751447065112512, -7839888805667742928, -1750047523337007702, -48
13916526844204946, 2197460154196732106, 2172222412836515817, 750148670758846
8027, -2859630236012475958, -7521563591744261058, -5098751749791804186, -493
2847221747616924, -83017490560352414, 909833191470153253, -68907000334182407
26, -2667729487396035417, 7945873742069551774, -8335875119100634420, -269516
2268485432158, 907840774270685481, -2649846143482627435, 4432371968824575795
, 675084127798063203, 1330710101237874403, -3282824841646116129, 66137656958
55811188, -4997019453007867026, -2517134063026061436, 6601608070123470072, 8
315730897074524817, 7382824712320294655, 8382147984209176484, 61195565499152
33413, -6473138824261887547, 3868662552751602358, -7049890781912985631, 5825
089164294808030, -747565901986682173, -3706701696228594999, 8547465356109452
89, -2464579454622871361, -6442828218203469284, 7444846227663661231, -159718
0339169755613, 1305732653808028370, 4846884492315410984, -592680480505270414
1, -5320891424889011357, -7613917326037722204, 4603012696960730681, -4168740
837400896895, 8981763047278317166, 7331246918389417837, -4002039446830895798
, 4582267480000687864, -7629613429408037667, 4813661187837882458, -776313336
5088963398, 63, 3001673639903682625])
? getstack
200
? if(3<2,print("bof"),print("ok"));
ok
? kill(y);print(x+y);
x + y
? f(u)=u+1;
? print(f(5));kill(f);
6
? f=12
12
? g(u)=if(u,,return(17));u+2
(u)->if(u,,return(17));u+2
? g(2)
4
? g(0)
17
? setrand(10)
? n=33;until(n==1,print1(n," ");if(n%2,n=3*n+1,n=n/2));print(1)
33 100 50 25 76 38 19 58 29 88 44 22 11 34 17 52 26 13 40 20 10 5 16 8 4 2 1
? m=5;while(m<20,print1(m," ");m=m+1);print()
5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 
? default(realprecision,28)
? default(seriesprecision,12)
? print((x-12*y)/(y+13*x));
(x - 12*y)/(13*x + y)
? print([1,2;3,4])
[1, 2; 3, 4]
? print1(x+y);print(x+y);
x + yx + y
? print((x-12*y)/(y+13*x));
(x - 12*y)/(13*x + y)
? print([1,2;3,4])
[1, 2; 3, 4]
? print1(x+y);print1(" equals ");print(x+y);
x + y equals x + y
? print1("give a value for s? ");s=input();print(1/(s^2+1))
give a value for s? printtex((x+y)^3/(x-y)^2)
\frac{x^3
 + 3 y x^2
 + 3 y^2 x
 + y^3}{x^2
 - 2 y x
 + y^2}
1
? for(i=1,100,for(j=1,25,if(i+j==32,break(2)));print(i))
1
2
3
4
5
6
? u=v=p=q=1;for(k=1,400,w=u+v;u=v;v=w;p*=w;q=lcm(q,w);if(k%50==0,print(k" "l
og(p)/log(q))));
50 1.561229126903099279206171725
100 1.601335375590875348711141031
150 1.606915548673659127523394774
200 1.618659998991528481508175176
250 1.626284706204746765086080988
300 1.627822776845103001192024532
350 1.632105905172986668189652273
400 1.632424285532931448171405619
? install(addii,GG)
? addii(1,2)
3
? kill(addii)
? getheap
[23, 1822]
? print("Total time spent: ",gettime);
Total time spent: 8
