'begin'
	'integer' i, j;

	'procedure' outstring (chan, s);
	'string' s;
	'begin'
		'integer' i;
		'for' i:=0 'step' 1 'until' length (s) - 1 'do'
		'begin'
			outsymbol (1, s, i)
		'end';
	'end';

	'for' j:=0 'step' 1 'until' 3 'do'
		outstring (1, `Nasenbaer\nfoo\n')
'end'