//
proc main;

//	print /d (1,2,3,4,5,6,7,8,9);

	for each x in 1,2,3,4,5,6,7,8,9;
		print x.Index x.Value;
//		print *x;
	next;
	for each x in (1,2,3,4,5,'A','B','C') do
		print *x;
	next;
	return ERROR;
end proc;
