potencia :: Double -> Int -> Double