//
define mappedarray $args 3 10;
define mappedarray %a 1 10;
define mappedarray #a 1 10;
define array $argh hash 10;
proc main;
	$a = '1 2 3 4 5 6';
//logparm 2 3 250;
//	$n = getargs($a,3,4,0x01);
//	$n = getargs($a,$args);
//	$n = getargs($a,$args,11);
//	$n = getargs($a,$arg);
//	$n = getargs($a,%a);
//	$n = getargs($a,#a);
//	$n = getargs($a,$argh);
	$n = getargs(getline(),1,,,',');
//logparm 2 0;
logparm 'DEBUG_LOG' 0;
	print $n;
	$i = 0;
	loop $n;
//		$j = $i + 3;
//		print $i $args[$i] $$j;
//		say '$(' i+1 ')=' $(i+1);
		printf('$(%d)=%d\n',i+1,$(i+1));
		$i++;
	end loop;
	return $ERROR;
end proc;
