{-# htermination max :: (Ord a, Ord k) => (a,k) -> (a,k) -> (a,k) #-}