MODE R = LONG LONG REAL;
PROC di = (REAL xi, REAL dx)R:(
  R x := xi;
  R s := 0.5*long long exp(- (x*x));
  WHILE x < 35 DO x +:= dx; s +:= long long exp(- (x*x)) OD;
  s * dx);
PROC ps = (STRING m, R v)VOID: print((m, " = ", v, newline));
ps("pi ", long long pi);
ps("tot", (R i = di(-35.0, 0.083); i*i));
ps("totp", (R i = 2.0*di(0, 0.083); i*i));
ps("partL", di(1.4, 0.1));
ps("partS", di(1.4, 0.083))

#a68g -prec 500 a68z
pi  = +3.141592653589793238462643383279502884197169399375105820974944592307816406286208998628034825342117067982148086513282306647093844609550582231725359408128481117450284102701938521105559644622948954930381964428810975665933446128475648233786783165271201909145648566923460348610454326648213393607260249141273724587006606315588174881520920962829254091715364367892590360011330530548820466521384146951941511609433057270365759591953092186117381932611793105118548074462379962749567351885752724891227938183011949129833673362e  +0
tot = +3.141592653589793238462643383279502884197169399375105820974944592307816406286208998628034825342117067982148086513282306647093844609550582231725359408128481117450284102701938521105559644622948954930381964428810975665933446128475648233786783165271201909145648566923460348610454326648213393607260249141273724587006606315588174881520920962829254091715364367892590360011330530548820466521384146951941511609433057270365759591953092186117381932611793105118548074462379962749567351885752724891227938183011949129833673361e  +0
totp = +3.141592653589793238462643383279502884197169399375105820974944592307816406286208998628034825342117067982148086513282306647093844609550582231725359408128481117450284102701938521105559644622948954930381964428810975665933446128475648233786783165271201909145648566923460348610454326648213393607260249141273724587006606315588174881520920962829254091715364367892590360011330530548820466521384146951941511609433057270365759591953092186117381932611793105118548074462379962749567351885752724891227938183011949129833673361e  +0
partL = +4.261478000588585945851960911231421537741735143891210931012224719257371582395253094179486728441733833751642282523311383786447228797962059400552274450229414754279672227706272454284095719579281651124620287451962182193120641914343228764429908383308422706301700571321513440835080218804886411096825707333698792626486332313197242030524149677643678251281492586730316237999296398514748012387686351118675632553624879179743697920446593131939788190591830710384249595923630716312659368994211527473628302281892721796848706071e  -2
partS = +4.251258414703276448804961665471904167967115206888627483875314015096359328323807451595711713736962298782147626165592496475036596022631426092307367108027121245690588367208207782215957908752330421945055647408667130079937764840761382763667774089041694201411786530880981182631389243053599580511251749531985958434869961074743806937694149189248490380132259596660661571287786055446942334041412127002767570720982817677508411964158627311395374992281460480836385856411390483196827784446415315777791507995854819826253908825e  -2
#