-- race a b l: if a appears first in l, returns LT; else GT. If neither, returns EQ
race :: Eq a => a -> a -> [a] -> Ordering
race _ _ [] = EQ
race :: Eq a => a -> a -> [a] -> Ordering
race _ _ [] = EQ
race _ _ [] = EQ