; this is sample script
; 2002/02/02 by Gaku - sort array

main();

sub sort(a)
{
	for (i = 0; i != a; i = i + 1) {
		for (j = i + 1; j != a; j = j + 1) {
			if (a[i] < a[j]) {
				temp = a[i];
				a[i] = a[j];
				a[j] = temp;
			}
		}
	}
}

sub main()
{
	srand(time());

	a = array(0);
	while (6 != a)
		push(a, rand());

	sort(a);

	while (0 != a)
		print(pop(a), "\n");
}
