RosettaCodeData/Task/Exponentiation-operator/Haskell/exponentiation-operator-3.hs

(**) :: Floating a => a -> a -> a
x ** y = exp (log x * y)
	`(**) :: Floating a => a -> a -> a`
	`x ** y = exp (log x * y)`