instance Eq a=>Eq [a] where (==) _ _ = False

instance (
    Ord a,
    Ord b
  ) => Ord (a,b) where
  compare _ _ = GT

instance (Show a, Show b) =>
  Show (
    a,
    b
  ) where
  showsPrec _ _ = showString ""