`as-power``m`procedure- m
- integer

Returns two values

`b`and`n`such that`m`=`(expt b n)`and`n`is maximal.> (as-power (* (expt 2 4) (expt 3 4))) 6 4 > (expt 6 4) 1296 > (* (expt 2 4) (expt 3 4)) 1296 > (as-power (* (expt 2 4) (expt 3 5))) 3888 1

`as-power``m`procedure- m
- integer

Returns two values

`b`and`n`such that`m`=`(expt b n)`and`n`is maximal.> (as-power (* (expt 2 4) (expt 3 4))) 6 4 > (expt 6 4) 1296 > (* (expt 2 4) (expt 3 4)) 1296 > (as-power (* (expt 2 4) (expt 3 5))) 3888 1