main module z

use textio

function add(f: integer, a: variadic in integer) returns result: integer initially 0


declare
	sum:	integer initially 0
enddeclare
out_string (tty, "high=")
out_integer (tty, high(a))
out_record (tty)


for i := 1 to high(a) do
	out_string (tty, "Value: ")
	out_integer (tty, a[i])
	out_record (tty)
	RESULT *= +a[i]
endfor



endfunction

tty_line ("HI")
out_integer (tty, add(2,4,5,7,4,3,3))
out_record (tty)

endmodule