'begin'
	'integer' i;

	i := PI;
	outreal (1, i);
	outreal (1, 1234567);
	outreal (1, -7654321);

	outstring (1, `\n');

	outreal (1, PI);
	outreal (1, 123.0000066'10'-12);
	outreal (1, 123.0000066'10'12);

	outstring (1, `\n')
'end'