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