Example CAL image receiving actor

image_receiver.cal

actor image_receiver() int(size=9) IMAGE_IN ==> String ACK_OUT :

	procedure showImage (List(type:int(size=9),size=9) img)
	begin
		println(img[0] + img[1] + img[2] + "\n" +
			    img[3] + img[4] + img[5] + "\n" +
			    img[6] + img[7] + img[8]
		);
	end

	action IMAGE_IN:[image] repeat 9 ==> ACK_OUT:[str]
	var String str
	do
		showImage(image);
		str := "thanks for the image";
	end

end