{-# htermination shows :: (Show a, Show k) => (a,k) -> String -> String #-}