MODULE Test;

IMPORT Out;

TYPE
	PVector = POINTER TO Vector;
	Vector = ARRAY 3 OF INTEGER;

VAR
	a : PVector;
	b : Vector;

BEGIN
	Out.Open;

	NEW(a);
	a^ := b;

	Out.Flush;
END Test.