'begin'
	'integer' 'procedure' chaostreff (x);
	'integer' x;
		chaostreff := x*3 - 28;

	'integer' 'procedure' heute (treffen, hacker);
	'integer' hacker, treffen;
	'begin'
		'integer' cngw;
		cngw := 0;
		'for' hacker := hacker 'step' -1 'until' 0 'do'
			cngw := cngw + treffen;
		heute := cngw;
	'end';

	'integer' im kaeuzchen;
	im kaeuzchen := 20;

	outinteger (1, heute(chaostreff(im kaeuzchen), im kaeuzchen));
	outstring (1, "\n");
'end'