ing
a `myCompare` b
  | a > b = GT
  | a < b = LT
  | otherwise = EQ

bmiTell3 :: (RealFloat a) => a -> a -
myCompare :: (Ord a) => a -> a -> Ordering
a `myCompare` b
  | a > b = GT
  | a < b = LT
  | otherwise = EQ
a `myCompare` b
  | a > b = GT
  | a < b = LT
  | otherwise = EQ