. let rec power n x = (* staged power function *) if is_zero n then .. else if is_zero (mod_num n (Int 2)) then square(power (n//Int 2) x) else .< .~x */ .~(power (n -/ Int 1) x)>. ?> v | None -> "2" ?>
This page computes ' size='20'/>
. ?>

The result is: