begin
comment record RPoint Declaration;
	record Point (integer x, y);
	reference(Point) pt;
	x(pt) := 1;
end.