class complex
begin
var real : int;
var imag : int;
end;

function cadd (a : ^ complex, b : ^ complex, c : ^ complex)
begin
	c^.real = a^.real + b^.real;
	c^.imag = a^.imag + b^.imag;
end;

function cmult (a : ^ complex, b : ^ complex, c : ^ complex)
begin
	c^.real = a^.real * b^.real - a^.imag * b^.imag;
	c^.imag = a^.real * b^.imag + a^.imag * b^.real;
end;

function main ()
var x : complex;
var y : complex;
var z : complex;
begin
	x.real = 3;
	x.imag = 4;
	y.real = 6;
	y.imag = 3;
	printStr("addition test");
	cadd(&x, &y, &z);
	printInt(z.real);
	printInt(z.imag);
	printStr("multiplication test");
	cmult(&x, &y, &z);
	printInt(z.real);
	printInt(z.imag);
end;