Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Prelude/Ord_2.hs
module Prelude(Ord(..)) where instance (Ord a,Ord b) => Ord (a,b) where compare (a,b) (a',b') = case compare a a' of LT -> LT EQ -> compare b b' GT -> GT
