{-# htermination showSigned :: ((Ratio Int) -> (String -> String)) -> Int -> (Ratio Int) -> String -> String #-}