(mac arith body `(let ^ expt (infix ((+ 1 left) (- 1 left) (* 2 left) (/ 2 left) (^ 3 left)) ,@body)))
I'll edit the above to use it.
Hmmm... where did the edit button go?
-----