'begin'
	'real' x;
	'integer' N;

	N := 20;
	'for' x := 0 'step' 0.33 'until' 3 * PI 'do'
	'begin'
		'integer' i, y;

		y := entier (sin (x) * N + N + 1);
		'for' i := 0 'step' 1 'until' y-1 'do'
			'if' i = N 'then' outstring (1, `|')
			'else' outstring (1, ` ');
		outstring (1, `*');
		'for' i := y+1 'step' 1 'until' N + 1 'do'
			'if' i = N 'then' outstring (1, `|')
			'else' outstring (1, ` ');
		outstring (1, `\n');
	'end';
'end'