main module w
%set use_routine_names=true

use	TEXTIO

export a


procedure a(b: variadic in ref general with size)

declare
	j: static cardinal
	k: static integer
	m: static integer
enddeclare


for i := 1 to high(b) do
	m:=2
	k := i
	m:=3
	j := sizeof(b[k])
	m:=4
	out_integer (tty, integer(sizeof(b[i])))
	out_record (tty)
endfor
endprocedure

a(1,2,3,"ABCDEF")

endmodule