exponential calc

exp(a,b)

	bx = b

	while bx > 0 
		x1 = log2(b)

		res = a
	
		for i = 1 to x1
			res = res * res

		bx = bx - x1^2
	wend



	
		

	