'begin'

	'integer' 'procedure' vfak (n);
	'value' n;
	'integer' n;
	'begin'
		'if' n < 2 'then'
			vfak := 1
		'else'
			vfak := n * vfak (n - 1)
	'end';

	'integer' 'procedure' nfak (n);
	'begin'
		'if' n < 2 'then'
			nfak := 1
		'else'
			nfak := n * nfak (n - 1)
	'end';

	'integer' i, j;

	i := vfak (5);
	j := nfak (5);

	outinteger (1, i);
	outinteger (1, j);
	outstring (1, `\n')

'end'