# invoke this program thus: a68g -prec 500 a68x#
MODE R = LONG LONG REAL;
R x := -35;
REAL dx = .1;
R s := 0;
WHILE x < 35 DO s +:= long long exp(- (x*x)); x +:= dx OD;
s *:= dx;
R p = long long pi;
print((p, new line, s*s, new line, s*s-p))