1 (defun make-exponentiation (base exp)
2   (cond ((=number? exp 0) 1)
3 	((=number? exp 1) base)
4 	((and (numberp base) (numberp exp))
5 	 (expt base exp))
6 	(t (list '** base exp))))