-----------------------------------------------------------------------
-- Helper code. Monomorphic unpacked accumulators.

-- (^) operator from Prelude is just slow.
(^) :: Double -> Int -> Double
x ^ 1 = x

(^) :: Double -> Int -> Double
x ^ 1 = x
x ^ 1 = x