(defun factorial (x)
	(product (iota x))
)

(defun power (n lo)
	(product (generate n lo))
)


Demo:


[24]> (factorial 5)
120
[25]> (factorial 10)
3628800
[26]> (power 2 16)
256
[27]> (power 5 6)
7776