fac(n)
{
	if(n==0)
	{
		return 1;
	}
	else
	{
		return n * fac(n-1);
	};
}


quicksort(x, first, last)
{
    var pivIndex = 0;
    
    if(first < last)
    {
        pivIndex = partition(x, first, last);
        quicksort(x, first, (pivIndex-1));
        quicksort(x, (pivIndex+1), last);
    };
}

partition(y, f, l)
{
    var up;
    var down;
    var temp;
    var piv	= y[f];
    up		= f;
    down	= l;
    
    while(y[up] <= piv && up < l)
    {
        up = up+1;
    };
        
    while(y[down] > piv  && down > f)
    {
         down = down-1;
    };
    
    while (down > up)
    {
		temp	= y[up];
        y[up]	= y[down];
        y[down] = temp;
        
        while (y[up] <= piv && up < l)
        {
            up = up+1;
        };
        
        while (y[down] > piv  && down > f )
        {
            down = down-1;
        };
    };
    
    y[f] = y[down];
    y[down] = piv;
    
    return down;
}


main()
{
	print("begin test program");
	
	var a = fac(7);
	var b = "test string";
	var c = [1, 2, "str"];
	var d = c; //reference!
	var e = 1 + 1 * 6 - 2;
	var f = (1 + 1) * (6 - 2);
	var g = [5, 3, 1, 6, 4, 2];
	
	print("1 + 1 * 6 - 2 = ");
	print(e);
	
	print("(1 + 1) * (6 - 2) = ");
	print(f);
	
	print("factorial of 7 is...");
	print(fac(7));
	
	print("quicksort of array:");
	print(g);
	
	quicksort(g, 0, size(g)-1);
	
	print("return...");
	print(g);
}