Implemented (expt) in Scheme