'begin'
	'comment'
		simple check for 'OWN' declaration...
	;

	'begin'
		'integer' 'procedure' foo (n);
		'begin'
			'own' 'integer' nase;
	
			'if' n 'notequal' 0 'then' nase := n;
			foo := nase;
			nase := nase + 1;
		'end';

		vprint (foo (100));
		vprint (foo (0));
		vprint (foo (0))
	'end';

	'begin'
		'integer' i, s;

		'for'i := 0 'step' 1 'until' 100 'do' 'begin'
			'own' 'integer' sum;

			'if' i = 0 'then' sum := 0;
			sum := sum + i;
			s := sum
		'end';
		vprint (s - (5050 - 103))
	'end';

	'begin'
		'integer' i, s;

		'procedure' foo (f, n);
		'begin'
			'own' 'integer' 'array' ii [1:5];

			'if' f = 0 'then'
				ii [n] := n
			'else'
				vprint (ii[n] + 103);
		'end';

		'for' i:=1 'step' 1 'until' 5 'do' foo (0, i);
		'for' i:=1 'step' 1 'until' 5 'do' foo (1, i);
	'end';
'end'