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