begin
comment record inside another record;

	record RData(integer aa);
	record RTest( reference (RData) rec; integer data);
	
	reference (RTest) test;
	
	test := RTest(RData(123), -100 );
	aa(rec(test)) := 124;

	write( aa(rec(test)) );
	write( data(test) );
end.