a:3;

if a=3 then b:33;

/* repeat if after removing */ remvalue(a, b);

a;

fib(20);

fib[20];

example(IF);

fib[20];

fib[200];

fib(200)

a:matrix([1,2],[-1,2.5]);

a.a;

a^^-1;

remvalue(a);

a;

g(a,b,c):=solve(a*x^2+b*x+c=0,x);

g(1,-1,-22);

res:solve(a*x^2+b*x+c=0,x);

f(a,b,c):=res;

f(1,-1,-22);

f(a,b,c):=ev(res);

f(1,-1,-22);

ev(res,[a=1,b=1,c=-1]);

numer:true;

g(1,-1,-22);

ratprint:false;

g(1,-1,-22);

/* number specification */

fib(2000);

set_display('ascii)$

fib(2000);

set_display('none)$

fib(2000);

set_display('xml)$

/* a few analytic operations (see also via menus) */ ""$
/* a comment cannot conclude a row, so add a constant string */$;

diff(sin(x^2),x,1);

integrate(2*x*cos(x^2), x);