int2ord :: Integral a => a -> Ordering
int2ord a | a < 0 = LT
          | a == 0 = EQ
          | otherwise = GT
int2ord :: Integral a => a -> Ordering
int2ord a | a < 0 = LT
          | a == 0 = EQ
          | otherwise = GT
int2ord a | a < 0 = LT
          | a == 0 = EQ
          | otherwise = GT