//
define array $a 10;
define array $b 10;
proc main;
//	let options 1;
	$n=5;
	loop while ($n-->0);
		print $n;
	end loop;
//	loop while ($i>=0);
//		$a[$i]=$i;
//		$b[$i]=$i + 10;
//		$i--;
//	end loop;
//	print $1;
//	print $2;
//	print $a;
//	putline('$1=' &+ $1);
	return ERROR;
end proc;
