{-# htermination (^) :: (Ratio Int) -> Int -> (Ratio Int) #-}