begin
	% line has equation: a+b*x+c*y=0 %
	record Line (real a, b, c);
	reference(Line) l;
	l := Line(1.0, 2.0, -3.0);
	write(a(l), b(l), c(l));
end