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 ""