1on modular;
2
3setmod 3;
4
5int(x,x);
6
7lisp !*mode;
8
9int(sqrt(1-x^2),x,0,1);
10
11lisp !*mode;
12
13end;
14